helper columnthis formula copied downfilter on resultcopy
=MOD(ROW(1:1),2)=0
or adapt this

Sub SelectEveryOtherRow()
Dim rng1 As Range
Dim rng2 As Range
For Each r In Range("a1:a21")
If r.Row Mod 2 = 1 Then
If rng2 Is Nothing Then
Set rng2 = rng1
Else
Set rng2 = Union(rng2, rng1)
End If
Set rng1 = r
End If
Next
rng2.Copy Range("g1")
End Sub

--
Don Guillett
SalesAid Software

"Chrisinct" wrote in message
...
I am working with imported data and I need the information in every 4th
cell
for a different worksheet. How can I do this.