Jared,

This might be what you want

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
If iLastRow Mod 3 < 1 Then iLastRow = iLastRow - 1
If iLastRow Mod 3 < 1 Then iLastRow = iLastRow - 1
For i = iLastRow To 1 Step -3
Rows(i).Resize(2).Delete
Next i

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"jared" wrote in message
oups.com...
I am looking to have a macro delete 2 rows then skip 1 row and delete
the next two. I have over 18,000 rows and I really would rather not do
this the manual way. :)

Thanks,
Jared