Paste as Values vba

Hi I have code below which copies data from one sheet and pastes to the select other sheet.

How can I get this code to paste in values only??

sub CopyPaste()
Dim ws As Worksheet
For Each ws In Worksheets

If ws.Name <> "Sheet1" Then

ws.Application.Run "Macro1"
End If
Next
End Sub

Sub Macro1()
Range("A2:B13").Select
Selection.Copy
Sheets("sheet2").Select
ActiveSheet.Paste
End Sub