Boa tarde,

Segue um código de exemplo:

Sub Preencher_Vazio()
    
    'Cells(Linha,Coluna)
    
    Dim i       As Double
    Dim Linhas  As Double
    
    Linhas = 10
    'De i=1 até 10
    For i = 1 To Linhas
        
        'Cells(Linha i,Coluna A)
        
        'Se a célula(i,1) for vazia
        If Cells(i, 1).Value = Empty Then
            Cells(i, 1).Value = "N/A"
        End If
    
    Next i
    
End Sub

att,

Sub InsereTextoEmCélulasVazias()
 Range("C2:C" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlBlanks) = "N/A"
End Sub