Not tested since I didn't have the latest CSV file

You'll have to adjust this a bit I'm sure, but the idea is to delete the " STALE" from the entries in col 3 of the CSV sheet and then continue by replacing stores with TRUE so that SpecialCells can delete them easily

    'delete stores
    Call .Columns(3).Replace(" STALE", "", xlPart)      '   in CSV file <<<<<<<<<<<<<<<<<<<<<<<<<<<<<


    On Error Resume Next
    For Each rStore In ThisWorkbook.Worksheets("DeleteStores").Cells(1, 1).CurrentRegion
        Call .Columns(3).Replace(rStore.Value, True, xlWhole)
    Next
    
    .Columns(3).SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
    On Error GoTo 0