Write Macro to input formula to copy cell

[RHowell2380]

I need to be able to insert the formula to copy a cell in 'sheet 1' to sheet 2 with skipping rows.

I have to take A1on 'sheet 1' and copy it to A1 on 'sheet 2'. That's the easy part I need to now take A2 on sheet 1 and I have copy it to A19 on 'sheet 2'. I have to basically I have to take sheet 1 A1:A150 and copy to sheet 2 A1:A2850 skipping 19 rows on sheet 2 each time.

The real tricky part is sheet rows are always changing so I can't copy. I have to use ='sheet1'A1 (formula in cell A1 on sheet2)
='sheet1'A2 (formula in cell A19 on sheet2).

Hope this makes sense!

 

[offthelip]

Try this:

Sub test()

With Worksheets("Sheet2")
For i = 1 To 150
  rowno = 1 + ((i - 1) * 18)
 .Range(.Cells(rowno, 1), .Cells(rowno, 1)).Formula = "=Sheet1!A" & i
Next i
End With
End Sub

 

[RHowell2380]

?Thank you!!!!