Hi

Try this:

LastRow = Range("F" & Rows.Count).End(xlUp).Row
Range("G4:L4").AutoFill Destination:=Range("G4:L" & LastRow)

Regards,
Per

"J.W. Aldridge" skrev i meddelelsen
...
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