copy variable length cells to a new sheets

Tech-Archive recommends: Speed Up your PC by fixing your registry

I would like to copy a range of cells in to a new spread***.

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

Dim wsSource wsDestination As Work***
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,

.

Quantcast