VBA Excel - copy word in cell down the column until the last cell in that column

[tanyaleblanc]

I'm trying to copy the word Yes down to the last cell in that column, using G as an anchor.

With Windows("Rental Rec.xlsm")
Sheets("Owned").Select
lRow = Cells(Rows.Count, "G").End(xlUp).Row
With Range("a2:bh" & lRow)
.AutoFilter
.AutoFilter Field:=3, Criteria1:="<>#N/A"
'trying to say; copy yes down the column, it didn't copy all the way down, short 8 rows and
'there must be the word yes in a3 in order for this to work


Range("AA4") = "=AA4": Range("AA3:AA" & lRow).FillDown

 

[Yongle]

How about ...

populate (visible) filtered cells only

Range("AA3:AA" & lRow).SpecialCells(xlCellTypeVisible) = "Yes"

or to populate all cells in range

Range("AA3:AA" & lRow) = "Yes"

 

[tanyaleblanc]

1st one worked perfect, tks