Solved: how to paste only value since there r some fuction in cells

[rrosa1]

hi
how to paste only value since there r some fuction in cells

[VBA]With ws
If .Name <> "Report" Then
.Range("A1:C1").Copy Destination:=Sheets("Month Total").Range("A" & Rows.Count).End(xlUp).Offset(1) _

.Range("A1:C1").PasteSpecial xlPasteValues
End If
End With[/VBA]

this code give me the run time error 1004
"past-special method of range class failed"

thanks for any help

[p45cal]

try:[VBA]With ws
If .Name <> "Report" Then
Sheets("Month Total").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = .Range("A1:C1").Value
End If
End With
[/VBA]

[rrosa1]

thanks p45cal
it works