Нужно сделать выборку для Excel и ненужное удалить

Sub Procedure_1()
    
    'Здесь указывается, до какой строки код должен работать.
    Const lBegin As Long = 4
    
    Dim lStart As Long, lEnd As Long
    
    'На время работы кода отключаем обновление монитора, чтобы код работал быстро
    '(можно ещё отключить обработку событий, пересчёт формул).
    Application.ScreenUpdating = False
    
    'Определяем конец данных на основе числа "222" в столбце "D".
    '-2, т.к. таблица выше находится на две ячейки.
    lEnd = Columns("D").Find(What:="222", LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row - 2
    
    'Т.к. при удалении строк порядковые номера строк меняются,
    'то удобнее будет двигаться снизу вверх.
    
    'Запоминаем начало.
    lStart = lEnd - 4
    
    Do While lStart > lBegin
        
        'Смотрим, что находится выше на 5 строк.
        If Cells(lStart, "A").Value <> "#" Then
            'Если там находится символ "#", то оставляем строки.
            'Иначе - удаляем.
            Range(lStart & ":" & lEnd).Delete Shift:=xlShiftUp
        End If
        
        'Переходим дальше.
        lEnd = lEnd - 5
        
        'Запоминаем начало.
        lStart = lEnd - 4
        
    Loop
    
    'Включаем обновление монитора.
    Application.ScreenUpdating = True
    
    'Переход к верху листа (для удобства пользователя).
    Range("A1").Activate
    
End Sub