Weird stuff in Excel

[smilelover]

Say for I have 1 to 10 for A1:A10,
now for B1 I have =A1,
B2 blank
B3 blank
B4 = A2
B5 blank
B6 Blank
and I want to continue this trend till B30,
what should I do
please reply asap, thank you very much

 

[tweedle]

Something like this; though the row math 1-30, every 3, doesn't quite work out [adjust as desired].

Sub Flood()
    colarow = 1
    For colbrow = 1 To 30 Step 3
        Range("B" & colbrow).Formula = ("=A" & colarow)
        colarow = colarow + 1
    Next
End Sub