How to describe Active Cell in a " Do - Loop" macro

Hi,

I am trying to create a macro that runs on a report downloaded from our system and that needs to have 4 lines removed every 66 rows. What I have so far is:
Range("A2").Select
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Offset(66, 0).Rows("1:4").EntireRow.Select
Selection.Delete Shift:=xlUp

However, as this report is run by different people and on different accounts the length of the report and the place of the empty 4 lines varies in each report. How do I make sure all lines are removed and that macro runs on the whole report no matter what the length is?

Thanks!

Maybe:

Please Login or Register  to view this content.

Test on a copy first to see if it does what you want.