vba for selecting every other row from the active row

Does anyone have vba that selects every other active row from current selection? Thanks.

This should select every alternate row from the activecell row within the used range

Sub Select_Alternate_Rows()
Dim rAnswer As Range, iLastRow As Integer, iRow As Integer, i As Integer

With ThisWorkbook.Worksheets("Sheet1")
     iLastRow = .UsedRange.Rows.Count + .UsedRange.Row - 1
     If ActiveCell.Row Mod 2 = 0 Then i = 2 Else i = 1
     
     Set rAnswer = .Range("A" & i)
     For iRow = i + 2 To iLastRow Step 2
          Set rAnswer = Union(rAnswer, .Range("A" & iRow))
          Next iRow
     End With

rAnswer.EntireRow.Select
Set rAnswer = Nothing
End Sub