Excel sonsatır işleri

Sheets(1).Range(Rows(10), Rows(12)).Select
Selection.Copy
For i = 1 To 3
Sheets(i).Select
lastrow = ActiveSheet.UsedRange.Rows.Count
hedef = ActiveSheet.Range(Rows(lastrow), Rows(lastrow + 2)).Select
ActiveSheet.Paste
Next