Can't think of anything. I've just tried it here, with
data in cells A2:E15 and some formulae in F2:J2 and:

LastUsedRow = ActiveSheet.UsedRange.Row + _
ActiveSheet.UsedRange.Rows.Count - 1
Range("F2:J2").copy destination:=Range("F2:J"& LastUsedRow)

worked fine.


-----Original Message-----
Thanks but it doesn't copy anything. I don't get an
error just nothing
happens

Any ideas?

Thanks again for your help so far
"Pete McCosh" wrote in message
...
Range("F2:J2").copy destination:=Range("F2:J"&
LastUsedRow)

should do it.

Pete

-----Original Message-----

Columns F to J Row 2 have formulaes that I want to copy
down to the last row
that was used.
I have found the last row used by:
LastUsedRow = ActiveSheet.UsedRange.Row +
ActiveSheet.UsedRange.Rows.Count -1

How can I copy the formulas in col F to J into all rows
down to the LastUsedRow



.