Macro to delete rows based on 2 columns

[dmac13]

Hi

I have a spreadsheet with the data from in rows 4 downwards, the number of rows varies each week.

I want to run a macro to delete all the any rows after row 4 where column A and column L are null.

can anyone help with some code please

 

[Mike Blackman]

Hi,

Maybe something like this?

Option Explicit

Sub RemoveRows()

    Dim lngLastRow As Long
    
    With ActiveSheet
        lngLastRow = .Range("[COLOR="Red"]B[/COLOR]" & Rows.Count).End(xlUp).Row
        With .Rows("4:" & lngLastRow)
            .AutoFilter Field:=1, _
                        Criteria1:="="
            .AutoFilter Field:=12, _
                        Criteria1:="="
        End With
        .Rows("5:" & lngLastRow).SpecialCells(xlCellTypeVisible).Delete
        .AutoFilterMode = False
    End With

End Sub

I have assumed that Column B has contiguous data and have assigned Last Row to Column B, if that isn't the case the please change the Red part of the code to a column you can trust has data all the way down to the bottom row.