Looping a 'fill down'

[Undulate]

Hi all - sorry, I'm very new to all of this. I want to have a program which will highlight the next 1000 cells in a column, 'fill down' and then move to the bottom of the filled column (does it do this already?) and then move up three cells, before highlighting the next 1000 and filling down again. I can record the first fill but don't know how to change it to a loop. Sorry if this sounds very confusing!

Thanks for any help!

Without the loop, it looks like:

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.Range("A1:A1008").Select
    Selection.FillDown
    ActiveCell.Offset(1005, 0).Range("A1").Select

End Sub

[Pepe Le Mokko]

I suggest you check out forum rules about thread titles and code tags

[Undulate]

Very sorry - has been remedied hopefully.

[StephenR]

How many times should it loop? This will do it five times:

Sub Macro1()
    
Dim r As Range, n As Long, n1 As Long

Set r = Range("A1")
n1 = 1000

For n = 1 To 5
    r.Resize(n1).FillDown
    Set r = r.Offset(n1 - 4)
Next n

End Sub