Macro copying formula where i only want the values

Hi there

I have the following macro which works fine accept for the fact that it copies the formulas from other worksheets, where as i only want to copy the values. Can someone please help?

Private Sub Worksheet_Activate()
Dim Sheet As Worksheet
For Each Sheet In Me.Parent.Sheets
If Sheet.Name <> Me.Name Then
If Sheet.Cells(Rows.Count, 1).End(xlUp).Row <> 1 Then
Sheet.Range(Sheet.Cells(2, 1), Sheet.Cells(Sheet.Cells(Rows.Count, 1).End(xlUp).Row, 8)).Copy Destination:=Me.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

End If
Else
Me.Range(Cells(2, 1), Cells(Rows.Count, 8)).Clear
End If
Next Sheet
End Sub