Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rOld As Range
Dim rNew As Range
Dim eRow As Long

Set wsSource = Sheets("SHEET1")
Set wsTarget = Sheets("SHEET2")
eRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
Set rOld = wsSource.Range("A1:C" & eRow)
Set rNew = wsTarget.Range("A1")

rOld.Copy Destination:=rNew

PS if you dim your variables:

Dim wsOne, wsTwo as Worksheet

wsOne will be a variant and only wsTwo will be correctly dimmed.

Hope this helps
Rowan

"Souris" wrote:

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,