VBA, Delete blank rows with no visible data in Column A

Maybe:

Sub TylerLuk1()
On Error Resume Next
Sheets("Info").Range("A2:A" & Range("A" & Rows.Count).End(3).row).SpecialCells(4).EntireRow.Delete
On Error GoTo 0
End Sub