Kopi fra et Ark til et andet med Makro

Jeg har nogle data i et Hoved Ark, jeg med jævne mellemrum skal have kopieret over i et under Ark hvor der bliver ændret i dataene. Eks.
A1:R1 og A2:R30 i Hoved Ark kopieres til Ark bbt og indsættes i A1:31R
A1:R1 og A31:R60 i Hoved Ark kopieres til Ark jfm og indsættes i A1:31R
A1:R1 og A61:R90 i Hoved Ark kopieres til Ark br og indsættes i A1:31R
Osv til 30-40 Ark.
Spørgsmålet er det muligt og gøre det på en mere enkel måde end det er vist i efterfølgende eks.:

Sub bbt()
'
' bbt Makro
    Sheets("Hoved Ark").Select
    Range("A1:R1").Select
    Selection.Copy
    Sheets("bbt").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Hoved Ark").Select
    Range("A2:R30").Select
    Range("R2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("bbt").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("D24").Select
    Sheets("Hoved Ark").Select
    Range("C29").Select
    Application.CutCopyMode = False
    Sheets("bbt").Select
End Sub

Sub jfm()
'
    Sheets("Hoved Ark").Select
    Range("A1:R1").Select
    Selection.Copy
    Sheets("jfm").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Hoved Ark").Select
    Range("A31:Q60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("jfm").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("C29").Select
    Sheets("Hoved Ark").Select
    Range("G58").Select
    Application.CutCopyMode = False
    Sheets("jfm").Select
End Sub

Sub br()
'
'
    Sheets("Hoved Ark").Select
    Range("A1:R1").Select
    Selection.Copy
    Sheets("br").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Hoved Ark").Select
    Range("A61:Q90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("br").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("C29").Select
    Sheets("Hoved Ark").Select
    Range("G58").Select
    Application.CutCopyMode = False
    Sheets("br").Select
End Sub