Macro, delte a row based on values in a list

[TorrO]

Hi

i have a big ledger in excel. In column E i have account numbers on each line + a lot of more info.

To make a working pivot table i need to delete many lines containing some of the account numbers.

This is the ledger:
1: Bilagsnummer; Bilagsår; Bilagsbeskrivelse; Dato; Konto; beløp
2: 4;2019; Faktura fra Talkmore; 01.01.2019; 6900; 1234.-
3: 5;2019; Faktura fra Meny; 01.02.2019; 5911; 4321.-
3: like line 2 and 3 but different invoice

My list for deleting rows is account numbers like 6900, 1500, 1600, 1900 etc

I would like to delete all lines that contains one of the accounts numbers, and also remove the line (not only delete content but remove the line)
So after a run, searching for account 6900 all lines with 6900 in column E is deleted

So line 2 will disappear

Thanks!

 

[JackDanIce]

Save a copy of your file, then try:

Sub M1()
    
    Dim LR  As Long
    Dim x   As Long
    Dim v   As Variant
    v = Split("6900,1500,1600,1900", ",")

    Application.ScreenUpdating = False
    
    LR = Cells(Rows.Count, 5).End(xlUp).Row
    
    With Cells(1, 5).Resize(LR)
        For x = LBound(v) To UBound(v)
            .Replace v(x), ""
        Next x
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
    
    Application.ScreenUpdating = True
    
    Erase v
    
End Sub

Adjust part in blue for the account numbers you want