Benytte mig af active sheet, istedet for

Hej har lidt VBA kode der driller mig lidt, koden virker fint, men i stedet for at hente fra et ark der hedder "uge" skal den tage værdien fra Active.sheet, men kan ikke få den til det.

Her er kodestykket:

Dim rMatch As Range
    Set rMatch = Sheets("År").Range("A7:l141").Find(Sheets("Uge").Range("A118").Value)
    If Not rMatch Is Nothing Then
        ActiveSheet.Range("d119:d135").Copy
        rMatch.Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=False
        End If

Find(Sheets("Uge").Range("A118").Value)

Er her jeg ikke vil have den skal hente fra arket Uge, men fra mit åbne ark.