simple macro -- looking to paste values, not formulas

Hey guys, first post here. Just started working at a bank, and some help writing a macro that consolidates data from various worksheets into one. I've written it already and it works well:

Sub Consolidate()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "Country Name" Then
ws.Range("A3:t64").Copy Destination:= _
Sheets("Country Name").Range("A" & Rows.Count). _
End(xlUp).Offset(1)
End If
Next ws
End Sub


The issue is that I want to only grab the values, not formulas. I understand that I should be using some variant of:

Selection.PasteSpecial Paste:=xlPasteValues


I just don't know how to actually integrate this into my previous macro. Any suggestions?

Thanks.

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Sub Consolidate()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Sheets
If ws.Name <> "Country Name" Then
ws.Range("A3:t64").Copy
Sheets("Country Name").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
End If
Next ws
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Perfect, thank you for the help.

Please use Code Tags when posting. See Forum Rule No. 3.

Maybe:

Sub clout90265()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "Country Name" Then
Sheets("Country Name").Range("A" & Rows.count).End(3)(3).Resize(64, 20).Value = ws.Range("A3:T64").Value
Sheets("Country Name").Rows(Range("A" & Rows.count).End(3)(0).Row & ":" & Range("A" & Rows.count).End(3)(1).Row).Clear
End If
Next ws
End Sub

OK, will do in the future. Thanks for the heads up.

If you are satisfied with the solutions provided, Please mark this thread as solved. See Forum Rule No. 9.


9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.