How do I remove blank lines in the first column.

Yep, no data, no code, nothing.

OK, don't know...I'll try againtest2.xlsm

The file is 8.98kb. as an excel test2.xlsm file

Here's the macro:

Sub test1()
Dim Rng As Range, ix As Long
Set Rng = Intersect(Range("A1:A438"), ActiveSheet.UsedRange)
For ix = Rng.Count To 1 Step -1
    If Rng.Item(ix).Text = Empty Then
        Rng.Item(ix).EntireRow.Delete
    End If
Next
End Sub

Hi SWMagic

Please insert Code Tags around your Code in Post #4 then try this

Option Explicit

Sub DeleteMe()
    Dim LR As Long
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")
    With ws
        .Range("A1").EntireRow.Insert
        .Range("A1").Value = "X"

        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        .AutoFilterMode = False
        .Range("A1:A" & LR).AutoFilter Field:=1, Criteria1:="="
        .Range("A2:A" & LR).EntireRow.Delete
        .AutoFilterMode = False
        .Range("A1").EntireRow.Delete
    End With
End Sub