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" <(E-Mail Removed)> wrote in message news:75E964F1-51B2-4C01-A4C4-(E-Mail Removed)...
> 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