Zeilen ausblenden Bedingt von 2 Spalten

Ich habe den Folgenden Code um auf einem Excel Blatt alle Zeilen auszublenden die in der angegebenen Range leer sind. Jetzt möchte ich gerne in einem zweiten Schritt (oder gleich in einem) auf Basis einer Zweiten Spalte ("D") die Zeilen zusätzlich ausblenden welche in der Spalte D eine leere Zelle haben. Ich stehe hier total auf dem Schlauch... Könntet Ihr mir bitte auf die Sprünge helfen?

Private Sub Zeilen_ein_ausblenden_Click()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Static s As Integer


    Dim objRow As Range

    If s = 0 Then
        For Each objRow In Range("B12:B181").Rows
            objRow.Hidden = (WorksheetFunction.CountIf(objRow, 0) + WorksheetFunction.CountBlank(objRow)) = objRow.Cells.Count
        Next
        s = 1
        For Each objRow In Range("B183:B312").Rows
            objRow.Hidden = (WorksheetFunction.CountIf(objRow, 0) + WorksheetFunction.CountBlank(objRow)) = objRow.Cells.Count
        Next
        s = 1
    Else
        For Each objRow In ActiveSheet.UsedRange.Rows
        If objRow.Hidden = True Then objRow.Hidden = False
        Next
        s = 0
    End If
    

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub