VBA Sorting Nth Range not working

Hello Beechum1,

This macro has been added to the attached workbook.

Private Sub CommandButton1_Click()

'Sub SelectEveryNthCell()
  Dim Cell As Range
  Dim R As Long
  Dim rRange As Range
  Dim rEveryNth As Range
  Dim lRow As Long
    
    R = 1
    
    With Sheet1
        Set rRange = .Range("C1", .Cells(.Rows.Count, "C").End(xlUp))
    End With
     
    For lRow = 1 To rRange.Rows.Count Step Range("a1").Value
        If lRow = 1 Then
            Set rEveryNth = rRange(lRow, 1)
        Else
            Set rEveryNth = Union(rEveryNth, rRange(lRow, 1))
        End If
    Next lRow
    
    For Each Cell In rEveryNth
      Sheets("Sheet1").Cells(R, "J") = Cell
      R = R + 1
    Next Cell
    
End Sub