How do I remove blank lines in the first column.

Hi SWMagic

The attached file contains this Code and shows Before and After worksheets. What is it that's not working for you? Please explain...

Option Explicit

Sub DeleteMe()
    Dim LR As Long
    Dim ws As Worksheet
    Set ws = Sheets(1)
    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