Sub Emre()
Dim i%, sat%, sayi%
Application.ScreenUpdating = False
Sayfa2.Activate
Range("A2:H10000").ClearContents
For i = 2 To Sayfa3.Cells(Rows.Count, "A").End(3).Row
Range("A65536").End(3)(2, 1).Resize(, 8).Value = Sayfa3.Range("A" & i).Resize(, 8).Value
sat = Range("G65536").End(3).Row
sayi = Range("G65536").End(3).Value
Range("A" & sat & ":D" & sat).AutoFill Destination:=Range("A" & sat & ":D" & (sat + sayi) - 1), Type:=xlFillCopy
Range("F" & sat & ":H" & sat).AutoFill Destination:=Range("F" & sat & ":H" & (sat + sayi) - 1), Type:=xlFillCopy
Range("E" & sat).AutoFill Destination:=Range("E" & sat & ":E" & (sat + sayi) - 1), Type:=xlFillDefault
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
End Sub