VBA - copy&Paste value without formulas

[Beatrice]

Hi, I am using Excel version 2007, i m very new to VBA, please help.

--quote--
Windows("Template.xlsm").Activate
Sheets("SUMMARY").Select
Range("A1:T52").Select
Selection.Copy
Windows("Destination File.xlsx").Activate
Sheets("COPY OF SUMMARY").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
--end of quote--

The result did copy the cells, but as my "SUMMARY" contains values and formulas.
How can I copy and paste all cells in the area as VALUE only?

Thanks.

 

[Beatrice]

Windows("Macro Template 1.xlsm").Activate
Sheets("SUMMARY").Select
Range("A1:T52").Select
Selection.Copy
Windows("Destination File.xlsx").Activate
Sheets("COPY OF SUMMARY").Select
ActiveSheet.PasteSpecial Paste:=xlPasteFormulas
Range("A1").Select
Application.CutCopyMode = False


<< I also try some methods suggested from forum, but failed
it show error code " 1004", what does it mean?

Thanks in advance for helping

 

[edgarsrom]

Perhaps something like this will work?:

[COLOR=#333333]Windows("Macro Template 1.xlsm").Activate[/COLOR]
With Sheets("Summary").Range("[COLOR=#333333]A1:T52")
[/COLOR]      .Copy
End With
[COLOR=#333333]Windows("Destination File.xlsx").Activate
[/COLOR]With [COLOR=#333333]Sheets("COPY OF SUMMARY").Range("A1")
[/COLOR]      .PasteSpecial xlPasteValues
End With

 

[MARK858]

Sub xxx()
Workbooks("Macro Template 1.xlsm").Sheets("Summary").Range("A1:T52").Copy
Workbooks("Destination File.xlsx").Sheets("COPY OF SUMMARY").Range("A1").PasteSpecial xlPasteValues
End Sub

 

[Beatrice]

edgarsrom , Thank you !
It is working

 

[Beatrice]

Thank you Mark858,

I was wondering what I did wrong with the ".PasteSpecial xlPasteValues"
Lesson learn.