Finding the last used row of a column, using this value to place text down another column

Hi!

Do you need simple "N/A" string or you need N/A error in columns B and H?

Buran

Here it is if you need N/A error

Sub FillNA()
    Dim lngLastRow As Long
    lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
    If lngLastRow > 1 Then
        Range("B2:B" & lngLastRow).Formula = "=NA()"
        Range("H2:H" & lngLastRow).Formula = "=NA()"
    End If
End Sub

and here it is, if you need simple N/A string

Sub FillNA()
    Dim lngLastRow As Long
    lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
    If lngLastRow > 1 Then
        Range("B2:B" & lngLastRow).Value = "N/A"
        Range("H2:H" & lngLastRow).Value = "N/A"
    End If
End Sub