Excel 2000 VBA Question

[mab]

I have a very large worksheet that contains a lot of data and I jus
want to be able to pull name and email. Can someone tell me how t
write code that would do the following:

Start at cell A1 (Will copy and paste info to another workseet)
move down 3 rows and over 4 columns (copy cell paste to anothe
worksheet)
move down 4 rows and back to column 1 and continue to end of file.

I think I just need help with how to move to different rows and column
until the end of file. Thank you

 

[Don Guillett]

try this

Sub CopyEvery4()
Dim nm As Integer
With ActiveSheet
For nm = 1 To .UsedRange.Rows.Count Step 4
ctr = Sheets("sheet4").Cells(Rows.Count, "a").End(xlUp).Row + 1
x = .Rows(nm).Row
Cells(x, "a").Copy Sheets("sheet4").Cells(ctr, 1)
Cells(x, "a").Offset(3, 4).Copy _
Sheets("sheet4").Cells(ctr, 2)
Next nm
End With
End Sub

 

[Jim Rech]

Is it accurate to say that what you want is to copy cell E4 and every 7th
cell below it (E11, E18, etc) until you hit an empty cell?