Makro der kan flytte data til nyt ark

Hej jeg sidder og laver et Excel ark over et arbejdsskema
I den forbindelse vil jeg gerne have en makro der kan flytte de samlede uge timer over i et nyt ark hvor hele årets timer fremgår, fordelt på hver uge. Og det skal den gøre for det ugenummer der står i en bestemt celle. 

Er ret ny til VB men kunne forestille mig en kode der så nogenlunde således ud:

Sub Tror()
Dim rMatch As Range
    Set rMatch = wsÅr.Range("C8:C15").Find(wsuge.Range("D113").Value)
    If Not rMatch Is Nothing Then
        wsuge.Range("d114:d121").Copy
        rMatch.Offset(0, 1).PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
        End If
End Sub

Hvor at der så skulle nogle flere celler ind ved wsÅr.Range da der skal være plads til 54 uger.

Håber i kan hjælpe