fill down range starting at last cell
 

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

fill down range starting at last cell
 

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

fill down range starting at last cell
 

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

fill down range starting at last cell
 

THANX!