Tengo esta macro que copia datos de una hoja y lo pega como valores en la hoja activa, quiero copiar todas las hojas consecutiva

Macro o código excel, quiero copiar y pegar los mismos rangos de todas las hojas consecutivamente.

Ub Macro1()
'
' Macro1 Macro
'
    Range("A12:N61").Select
    Selection.Copy
    Sheets("previa").Select
    Range("F1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("M3:N5").Select
    Selection.Copy
    Sheets("previa").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("B1").Select
    Range("G7:J8").Select
    Selection.Copy
    Sheets("previa").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("C1").Select
    Range("M3:N5").Select
    Selection.Copy
    Sheets("previa").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    Range("M8:N8").Select
    Selection.Copy
    Sheets("previa").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("D7").Select
    Range("A1:E1").Select
    Selection.Copy
    Range("A2:A38").Select
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub