Excel 2007 : How to create a loop with this code?

Hi All
I'm using this code to populate a list of 'names'
in to a new range where each 'name'/(cell) have 22 cells space between each other:

Sub PopulateNames()

Worksheets("January").Range("W1").Formula = "=$A9"
Worksheets("January").Range("W23").Formula = "=$A10"
Worksheets("January").Range("W45").Formula = "=$A11"
Worksheets("January").Range("W67").Formula = "=$A12"
Worksheets("January").Range("W89").Formula = "=$A13"
Worksheets("January").Range("W111").Formula = "=$A14"
Worksheets("January").Range("W133").Formula = "=$A15"
Worksheets("January").Range("W155").Formula = "=$A16"
Worksheets("January").Range("W177").Formula = "=$A17"

End Sub

This is a very long list (avg' of 100 'names')
So I need to loop this action to have a better macro code
Also the macro must use the cell "A7" to get the number of loops.
(So if "A7" contains 76, the macro will loop for 76 times)

Any suggestions to how should I go with this?

Many thanks for your help,

Amit

hi furiousfox
something like

Sub PopulateNames()
Dim NuOne As Long, Nitem As Long
NuOne = 9
With Worksheets("January")
For Nitem = 1 To Range("A7").Value
Range("W" & NuOne).Formula = "=$A" & 8 + Nitem
NuOne = NuOne + 22
Next Nitem
End With
End Sub

Nice, quick, smooth, perfect!

Thank you !!!

welcome, thanks for posting