How to remove every other row in a spreadsheet from report quickly

[nolanstern]

Can anyone provide me with a quick way to remove every other row in a spreadsheet report?

 

[Fluff]

Maybe

Sub nolanstern()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate("if(mod(row(" & .Address & "),2)=0,true," & .Address & ")")
      .SpecialCells(xlConstants, xlLogical).EntireRow.Delete
   End With
End Sub

How many rows do you have in the report?

 

[Joe4]

What does the data look like?
Is there anything consistent about this rows that you want to remove (i.e. are they all blank)?
Is it the odd or even number rows that you want to delete?

 

[nolanstern]

The number of rows varies from day to day.

 

[Fluff]

Approximately how many rows?
And can you answer Joe's questions as well