Vba copy paste values

[Biz]

Dear All,

Is there a better way to copy and paste values refer to code below?

[SIZE=3][FONT=Calibri]   [COLOR=black] [COLOR=red]'Copy and Paste values[/COLOR]<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/COLOR][/FONT][/SIZE]
[COLOR=red][SIZE=3][FONT=Calibri][COLOR=black]    Range(Range("FU2"), Range("FU2").End(xlDown)).Copy<o:p></o:p>[/COLOR][/FONT][/SIZE][/COLOR]
[COLOR=red][SIZE=3][FONT=Calibri][COLOR=black]    Range("CZ2").PasteSpecial Paste:=xlPasteValues<o:p></o:p>[/COLOR][/FONT][/SIZE][/COLOR]

Biz

 

[Rick Rothstein]

Since you only want to move the values, just assign them instead of copy/pasting them...

With Range(Range("FU2"), Range("FU2").End(xlDown))
    Range("CZ2").Resize(.Rows.Count).Values = .Values
End With

 

[Biz]

Hi Rick,

I get run-time error '438' object doesn't support this property or method.

Biz

 

[Biz]

Hi Rick,

I tried again it should be value not values.

Thanks again mate.

Biz

 

[Rick Rothstein]

I'm guessing you retyped my code rather than copy/paste it and, in doing so, you omitted the "dot" in front of the ".Rows.Count" inside the Resize property... that dot is needed because we want the count of the rows to apply to the range in the With statement and not the number of rows on the entire sheet (which is the default).

Correction
--------------------
I just saw your last response... you are right... I mistakenly added an "s" at the end of the property name "Value". I'm glad you caught my mistake.