Hi Souris,

Set rOld = wsSource.Range("A1:C15")

Perhaps,

Set rOld = Range("A1").CurrentRegion


---
Regards,
Norman



"Souris" wrote in message
...
I would like to copy a range of cells in to a new spreadsheet.

I have following code, but it does not work for variable length cells

Dim wsSource wsDestination As Worksheet
Dim rFrom, rTo As Range

Set wsSource = Sheets("SHEET1")
Set wsDestination = Sheets("SHEET2")
Set rOld = wsSource.Range("A1:C15")
Set rNew = wsTarget.Range("A1")

rOld.Copy Destination:=rNew

Number of ciolumns is known, but I would like to change the number of
rows.
Are there any easy way to programming change row number of rOld?

Any information is great appreciated,