something like
Sub copyevery4th()
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
dlr = Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(i, "a").Copy Cells(dlr, "b")
Next i
End Sub



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"shennigan" wrote in message
...
How does one efficiently choose from one list and create another in
Excell.

Example ( Choosing every 4th set of data pairs)
when like this in a spreadsheet
96 121



96.5 110




97 109



to look like this
96 121
96.5 110
97 109





--
STEVE
MS EMGMT