[Solved] Range as part of a range

[BrianDP1977]

I have the following code to take a given range then output the first two rows in this range as a different range.

    Range("Ext_DP6_P1_all").Rows("1:2").Copy _
    Destination:=Range("Trunc_DP6_P1").Cells(1, 1)

However, I only want to pass the values (not all the formatting). Also, the code is currently very processor intensive (take a long time to run for some reason). I think it's because it copies and pastes ALL rows in the cell (which is what I thought I wanted at first). However, since it takes so long to work, how do I restrict it to just inputting cells withing the given ranges? Thanks.

 

[Scott Huish]

What's the specific range you want to copy?

 

[BrianDP1977]

Sorry about that. I guess I didn't do a good job defining my variables.

Ext_DP6_P1_All is the first range containing all the rows of data.
Trunc_DP6_P1 is the truncated range where only the first two rows of the original data will be displayed.

Just to reiterate, I want to take the first two rows of information within the first range (just the cells comprising the first two rows of the range and not the entire row on the sheet), copy only the values of these two rows (and maybe the border formats), and paste them to the cells comprising the truncated range. Thank you.

 

[BrianDP1977]

With some help I now have some working code:

Dim r1 As Range, r2 As Range
Set r1 = Range("Ext_DP6_P1_all").Resize(2)
Set r2 = Range("Trunc_DP6_P1")
r2.Value = r1.Value

The whole "processor intensive" thing had nothing to do with the code. Instead it was caused by the fact that I had the activation set to a worksheet change. This caused the code to re-run everytime it inserted values into the new range's cells. Big mistake. Thanks for the help.