Hi

Make a backup copy of your workbook first, then you could use something like

For i = 20 To 2 Step -2
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
Next i

Where 20 is the row number of the last blank row under the last data row and
2 is the first blank row under the first data row.

Be sure to get the numbers right so you don't delete any data.

HTH

Ken