Område overføres til andet faneblad

Private Sub Worksheet_Calculate()
    Call CopyCells
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call CopyCells
End Sub

Private Sub CopyCells()
    Dim ActSheet As Worksheet
    Dim SelRange As Range

    Set ActSheet = ActiveSheet
    Set SelRange = Selection

    Dim DestSheet As Worksheet
    Dim DestRange As Range
   
    Set DestSheet = Sheets("Ark2")
    Set DestRange = DestSheet.Range("A:A")
   
    Range("A:A").Copy
    DestRange.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   
    DestSheet.Select
    DestSheet.Range("A1").Select
   
    ActSheet.Select
    SelRange.Select
End Sub