Insert 0000 based on 2 criteria in a particular Column

[Livin404]

Greetings, I got the VBA below with the help of "Fluff" from this website. Before I add "0000" to Column D I need to ensure the corresponding cell in Column C is NOT blank OR contains "N/A". Thank you.

Sub Insert_Null()
   With Sheets("72 HR")
   Columns("D:D").NumberFormat = "@"
     .Range("D2:D" & .Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Value = "0000"
   End With
End Sub

 

[CeceR]

This might give you the result you're after - I added a loop to evaluate the values in column C:

Sub Insert_Null()
    With Sheets("72 HR")
    
        Dim r As Long 'row number for the loop
                 
        Columns("D:D").NumberFormat = "@"
        
        For r = 2 To .Range("C" & Rows.Count).End(xlUp).Row
        
            If (.Cells(r, 3) = "" Or .Cells(r, 3) = "N/A") And IsEmpty(.Cells(r, 4)) Then
                  .Cells(r, 4).Value = "0000"
            End If
            
        Next r
    
    End With
End Sub