VBA Locate first open cell in column and autofill specific value down to last row in column A

[rplohocky]

Hello all,
I am looking for code that will look in column Q for the first open cell, fill every cell with "N/A" all the way down to the last populated row in column A. Another words if column A is blank then stop filling in column Q with "N/A".

I've been working with this code but I know I'm missing something.
<code>
Range("AK2:AK" & Cells(rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible).Copy _

Range("Q" & rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "N/A"

</code>

Any help would be great!

 

[Fluff]

Does this do what you want?

Sub FillQ()
Range("Q:Q").SpecialCells(xlBlanks).Value = "N/A"
End Sub

 

[rplohocky]

Does this do what you want?

Sub FillQ()
Range("Q:Q").SpecialCells(xlBlanks).Value = "N/A"
End Sub

Yes it does, thank you Fluff! I don't really understand how it knows to stop on the correct row but it works as it should. Thanks again!

 

[Fluff]

Glad to help & thanks for the feedback.

The SpecialCells method only works on the UsedRange.
So while the code looks like it will work on the whole of col Q, it's restricted to the UsedRange.