How do I remove blank lines in the first column.

will remove rows with empty cells in column A

Sub test1()
Dim Rng As Range
Set Rng = Intersect(Range("A1:A438"), ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks)
If Not Rng Is Nothing Then
    Rng.EntireRow.Delete xlShiftUp
End If
End Sub

If the cells contain spaces then you will need to loop and test for "" on trimmed cells

If len(Rng.Item(ix).value) = 0 Then