Sub getevery4throw()
mc = 1 ' col A
r = 2
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row Step 4
Cells(r, mc + 4) = Cells(i, mc)
r = r + 1
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Confusicous" wrote in message
...
I have a list of names in Column A and the names appear every 4 lines down.
A2, A6, A10... In column E I just want the names to appear and this has
6,000
lines on the spreadsheet. Can anyone tell me the easiest way to get this
to
work out.

Thanks