When downloading data from ERP to Excel, every second row in Excel is populated and every other is blank.

The Excel would look something like this.

Before you execute the macro, write “end” in the A column cell after the data area.

Like this.

The macro is here:

Sub deleteemptyrows()
Range(“a1”).Select

Do Until ActiveCell = “end”
If ActiveCell.Value = “” Then
ActiveCell.Rows(“1:1”).EntireRow.Select
Selection.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Select
End If

Loop

MsgBox "Macro done", vbOKOnly, "Own macro"

End Sub

The macro takes the cursor to cell A1. Then the macro checks every cell in A column, if the cell is empty then the row is deleted. If the cell is populated, then the macro jumps to the next downwards in A column.

The result should be this: