Conditional Subtraction VBA/Macro : Good day Excelers,

Looking for some assistance programming a report. I'm in the early stages. I've hit a wall when attempting to conditionally subtract using VBA. I would like to Subtract 1 from Column C if Column B is greater than 1. Any assistance would be greatly appreciated. The code I have so far is below


    Sub UniqueContactReport()
    Columns("Z:AQ").EntireColumn.Delete
    Columns("X").EntireColumn.Delete
    Columns("V").EntireColumn.Delete
    Columns("U").EntireColumn.Delete
    Columns("J:S").EntireColumn.Delete
    Columns("A:H").EntireColumn.Delete
    
        Dim N As Long, i As Long
        N = Cells(Rows.Count, "B").End(xlUp).Row
        For i = N To 1 Step -1
            If Cells(i, "B") > 1 And Cells(i, "D") = 0 Then
                Cells(i, "B").EntireRow.Delete
            End If
        Next i
        
        
    End Sub