Delete row if A1 is empty

[melidrie]

Hi,

i have a code but there is one thing that isnt working..

It wont delete 1 row because in column M1 there is still data.

What i want is that, if there is no data in cell A1 delete entire row even if there is data in column M1

Any suggestions?

Last = Cells(Rows.Count, "C").End(xlUp).Row    For i = Last To 1 Step -1
        If (Cells(i, "C").Value) = "CUSIP" Then
    'Cells(i, "A").EntireRow.ClearContents ' USE THIS TO CLEAR CONTENTS BUT NOT DELETE ROW
            Cells(i, "A").EntireRow.Delete
            
        End If
    Next i
'   Application.ScreenUpdating = True
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
'Application.ScreenUpdating = True
End With
End Sub

 

[Norie]

If you want to delete based on A1 being empty all you should need is this.

If Range("A1").Value = "" Then
    Rows(1).Delete
End If

If you want to delete rows where column A is empty you can try this.

If Cells(i, "A").Value = "" Then
    Rows(i).Delete
End If