如果列中的单元格值不在范围内，则删除行+保持向下两行的另一个单元格中的值

Question

当前，我正在运行一个基于单元格D＃删除行的宏，该宏不在160

我现在正在寻找添加到此excel宏中以拉出Cell B＃值并将其移动到另一列的顺序（如果D＃单元格的值为true语句），然后继续基于不正确的D＃单元格删除行。

我一直遇到的问题是我要查找的B列中的值向下两行（参见图片）

也许在这种情况下可以使用更好的宏？

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