column a b c

row 9 trns bill accounts payable
row 10 spl bill load ap data
row 11 endtrns

how can i create a macro that copy these data down until row 10000
it should look like these after:

row 9 trns bill accounts payable
row 10 spl bill load ap data
row 11 endtrns
row 12 trns bill accounts payable
row 13 spl bill load ap data
row 14 endtrns

and so on,

thanks a lot for your help

You can try this one with the data in Sheet1

Sub test2()
Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = 10000
.Range("A9:C11").AutoFill Destination:=.Range("A9:C" & LastRow) _
, Type:=xlFillDefault
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"andresg1975" wrote in message ...
column a b c

row 9 trns bill accounts payable
row 10 spl bill load ap data
row 11 endtrns

how can i create a macro that copy these data down until row 10000
it should look like these after:

row 9 trns bill accounts payable
row 10 spl bill load ap data
row 11 endtrns
row 12 trns bill accounts payable
row 13 spl bill load ap data
row 14 endtrns

and so on,

thanks a lot for your help