If cell contains specific text then push function to the cell to the right of it

[rdoulaghsingh]

Is there a way to add another condition to the code below to read if the cell it's targeting for the function is not blank then do not push the function? Thanks!

For Each cellAR In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If InStr(cellAR.Text, "City, ST, Zip") > 0 Then
cellAR.Offset(0, 1) = "=CONCATENATE('Introduction CMMC'!B17)"
End If
Next cellAR

 

[rdoulaghsingh]

What was the issue?

I just added an error handler. LOL. Thanks again!