fill down range starting at last cell

[J.W. Aldridge]

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

 

[Per Jessen]

Hi

Try this:

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

Regards,
Per

 

[FSt1]

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]

THANX!