Custom Autofill

[Cesar Zapata]

Hi,

I got a problem that i cant solve it. is killing me!

well it looks easey but I cant do this.

I need to autofill in this order. the number have to repeat 30 rows then
once it gets to 3 change back to one and go on. Please help is appreciated.

1
1
1
2
2
2
3
3
1
1
1
2
2
2
3
3
3

 

[Tom Ogilvy]

Sub Tester4()
rw = 1
For i = 1 To 10
k = 0
For j = 1 To 9
If j Mod 3 = 1 Then k = k + 1
Cells(rw, 1) = k
rw = rw + 1
Next
Next
End Sub

Not sure what you mean by repeat 30 rows.