Удаление строки, если значение ячейки в столбце находится за пределами диапазона + сохранение значения в другой ячейке двумя строками вниз

Question

В настоящее время я использую макрос, который удаляет строки, основанные на ячейке D #, не между 160

Сейчас я ищу, чтобы добавить в этот макрос Excel, чтобы получить значение ячейки B # и переместить его в другой столбец по порядку, если значение ячейки D # является истинным оператором, а затем продолжайте удалять строки на основе неверных ячеек D #.

Проблема, с которой я продолжаю сталкиваться, заключается в том, что значение в столбце B ищем вниз две строки (см. pi c)

Может быть, есть лучший макрос для использования в этом типе ситуации?

Sub DeleteRows()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Not (Range("D" & i).Value > 160 And Range("D" & i).Value < 175) Then
            Range("D" & i).EntireRow.Delete
        End If
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub