select issue

Here's one way:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
        i = Cells(Rows.Count, "G").End(xlUp).Row
    Range("H2").AutoFill Destination:=Range("H2:H" & i)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Note there's no selecting needed.

HTH,

Smitty

Thx