I think the thanks should go to Bob, he provided the meat of the solution
while I just gave you one minor change.

You might or might not be able to use one of the SpecialCells, but that's
iffy at times depending the worksheet. The way I provided is a 'sure thing'
although if row 3 is empty in that column and nothing below it in the column,
then you will get an error when it attempts to execute.

"Isis" wrote:

?B?SkxhdGhhbQ==?= <HelpFrom @ Jlathamsite.com.(removethis) wrote in
:

For RowCount = 3 To _
Range("B" & Rows.Count).End(xlUp).Row


Not quite sure whom I am thanking, but Thank You - that seems to work.
Could I also have used SpecialCells somehow - just asking out of interest.

Thanks