Retur i makro?

Sub Test1()
FraCel = ActiveCell.Address 'Husker cellen hvor du står
FraArk = ActiveSheet.Name  'Husker Ark hvor du står

    Range("H16:I17").Copy
    Sheets(FraArk).Select  'Vælger Ark hvor du stod
    Range(FraCel).Select  'Vælger cellen hvor du stod
    ActiveSheet.Paste
    Range(FraCel).Select  'Vælger cellen hvor du stod
End Sub

Sub test2()
FraArk = ActiveSheet.Name  'Husker Ark hvor du står
FraCel = ActiveCell.Address 'Husker cellen hvor du står
'kopiere området H16 til I17 i arket og indsætter værdierne der hvor du står
Range("H16:I17").Copy Destination:=Worksheets(FraArk).Range(FraCel)
End Sub

Sub test3()
FraCel = ActiveCell.Address 'Husker cellen hvor du står
'kopiere området H16 til I17 i arket og indsætter værdierne der hvor du står
Range("H16:I17").Copy Destination:=Range(FraCel)
End Sub

Sub test4()
FraCel = ActiveCell.Address
FraArk = ActiveSheet.Name
With Worksheets(FraArk)
    .Range("H16:I17").Copy
    .Range(FraCel).PasteSpecial xlPasteValues
End With
End Sub