hi
this might work also...
Dim gc As Long
Dim fc As Long
gc = Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Row
fc = Cells(Rows.Count, "F").End(xlUp).Row
Range("G1:L1").Copy
Range("G" & gc & ":G" & fc).PasteSpecial xlPasteAll

regards
FSt1


"J.W. Aldridge" wrote:

This code works.

Now I need to....

add fill down adjacent to the last row used in column F from this
point.
(G4:L4 contains formulas)

Range("G4:L4").Select
Selection.Copy
Range("G65000:L65000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste