One way:

Dim rBlanks As Range
On Error Resume Next
Set rBlanks = Range("BH1:BH" & _
Range("AM1").Value).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rBlanks Is Nothing Then rBlanks.Value = "BLANK"

In article .com,
"kevcar40" wrote:

I have a worksheet that i import data onto
i then count the number of rows and store the result in AM1
the problem is some of the cell are blank
What i want to do is check the range
from BH1 to BH (AM1 value) checking for Blank cells
if any are found put the Word "BLANK" in the cell