Macro to remove lines in Data set if Column A value is blank

I guess OP's actual workbook just had blanks....
Amended with lRow in D

Option Explicit
Sub RemoveBlankRows()
    Dim rng As Range, lRow As Long
    lRow = Sheets("Sheet1").Cells(Rows.Count, "D").End(xlUp).Row
    Set rng = Sheets("Sheet1").Range("A2:A" & lRow).SpecialCells(xlCellTypeBlanks)
    rng.EntireRow.Delete
End Sub