Copying dynamic range

[svjensen]

By using the following I get the row and column number of the "last" cell with contents:'

lastrow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
lastcolumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

I then need to use this information to copy the range starting in cell A1 and ending in the row and column found above. But this has turned out to cause me some trouble.

Can anyone help?

/Soren

 

[Andrew Poulsom]

Like this?

Range(Cells(1, 1), Cells(lastrow, lastcolumn)).Copy

 

[svjensen]

Yes of course. I should have gotten that one myself
Thanks

/Soren