Below formula works but it paste as formula. How can I change to paste as value?

Sub SaveFinalPrices()

Dim bottomD As Integer

Dim ws As Worksheet

For Each ws In Sheets(Array("A", "B", "C"))

ws.Activate

bottomD = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:M" & bottomD).Copy Sheets("Hist Prods").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

Next ws

End Sub

Thanks