#### REPLACE A WITH COLUMN LETTER AND j= n WITH ROW TO START ####
Sub
numr()
finalrow
= Sheets("Sheet1").Range("A10000").End(xlUp).Row
For j
= 2 To finalrow
If
Sheets("Sheet1").Range("A" & j).Value = ""
Then
Sheets("Sheet1").Range("A" & j).Value = "BM"
End If
Next j
End
Sub
No comments:
Post a Comment