Find & replace up to certain row

[srosk]

Is there a way for this code to only look until the last populated row in column A vs the entire columns D:K. IE, the data stops on row 84, but the following populates ' N/A' all the way down D:K where a cell is blank.

Thanks in advance!

    Columns("D:K").Select    Selection.Replace What:="", Replacement:="       N/A", lookat:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[Fluff]

This will get rid of the problem of the extra rows

Sub srosk()
   With Range("D1", Range("A" & Rows.Count).End(xlUp).Offset(, 10))
      .SpecialCells(xlBlanks).Value = "       N/A"
   End With
End Sub

Are you sure that J6 is actually blank, in an empty cell put =ISBLANK(J6), what does it return?

 

[srosk]

Soo, to answer your question, it appears blank but indeed.. it is not. Which explains why the results weren't working correctly.

 

[Fluff]

That would explain it, but glad to see you have something that works.

 

[srosk]

Yes I really appreciate all that you do. Have a great day!

 

[Fluff]

Glad to help & thanks for the feedback