Sub PullEveryNthRow()
' Pull every Nth row from the selected range and place those values in
' a new worksheet.
Dim Increment As Long
Dim Source As Range
Dim TargetSheet As Worksheet
Dim SourceRow As Long
Dim TargetRow As Long
' Use the current selection for the source
Set Source = Selection
' Query user for the increment
Do
Increment = InputBox("Enter increment:")
If Increment < 1 Then
Exit Sub
End If
Loop Until Increment > 0
' Add a new sheet and move the data
Sheets.Add
Set TargetSheet = ActiveSheet
TargetRow = 1
For SourceRow = 1 To Source.Rows.Count Step Increment
TargetSheet.Rows(TargetRow). _
Resize(1, Source.Columns.Count).Value _
= Source.Rows(SourceRow).Value
TargetRow = TargetRow + 1
Next SourceRow
End Sub