Macro to paste formula in cells to every other row in new sheet

[Dcassidy94]

I really need help creating a macro to copy the contents in column A in sheet 1 to every other row in sheet 2 column A without incrementing the cell reference more than 1. Thank you

[alansidman]

try this

Option Explicit

Sub everyother()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    Dim r1 As Long, r2 As Long
    r1 = s1.Range("A" & Rows.Count).End(xlUp).Row
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To r1
        r2 = s2.Range("A" & Rows.Count).End(xlUp).Row
        s1.Range("A" & i).Copy s2.Range("A" & r2 + 2)
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Action completed"
End Sub