Macro issue: data kopieren naar eerste vrije cel

[boome]

Ik gebruik onderstaande code om data te kopieren naar een ander excel bestand
De gaat schuil achter 2 knoppen om 2 vaste bereiken te kopieren.
De data moet naar de eerste vrije cel gekopieerd worden.
Het werkt de eerste keer wanneer je op knop 1 klikt, maar wanneer je daarna op knop 2 klikt wordt er een error gegeven op de code voor het vinden van de eerste vrije cel (oranje tekst):
Ik kom er niet uit, dus hopenlijk is er iemand die me kan verder helpen:

Public Function FileFolderExists(strFullPath As String) As Boolean
    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
    
EarlyExit:
    On Error GoTo 0

End Function

Sub Kopieer_gegevens_VW1()

Range("VW_1").Copy


If FileFolderExists("Z:\uurregistratie.xlsx") Then
Workbooks.Open Filename:="Z:\uurregistratie.xlsx"

Workbooks("uurregistratie").Activate
Sheets("Data").Select
    [A65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
ActiveWorkbook.Save

ThisWorkbook.Activate

 Else
 
MsgBox "Het bestand uurregistratie bestaat nog niet"

End If


End Sub

Sub Kopieer_gegevens_VW2()

Range("VW_2").Copy


If FileFolderExists("Z:\uurregistratie.xlsx") Then

Workbooks.Open Filename:="Z:\uurregistratie.xlsx"

Workbooks("uurregistratie").Activate
Sheets("Data").Select
   [COLOR="darkorange"] [A65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False[/COLOR]
    
ActiveWorkbook.Save

ThisWorkbook.Activate

 Else
 
MsgBox "Het bestand uurregistratie bestaat nog niet"

        
End If


End Sub

 

[Warme bakkertje]

Al eens geprobeerd van deze

ActiveWorkbook.Save

te vervangen door deze

ActiveWorkbook.Close True

of anders een controle toe te voegen om te zien of het workbook reeds geopend is.

 

[boome]

Ik denk dat ik het probleem heb kunnen traceren.
Het probleem wordt volgens mij veroorzaakt doordat de gegevens die net gekopieerd werden via de eerste knop nog steeds geselecteerd zijn want wanneer ik het doelbestand na het kopiëren van de eerste reeks gegevens laat sluiten en terug openen bij het kopiëren van de 2de reeks gegevens dan loopt alles perfect.
Is het mogelijk om de selectie van de gegevens op te heffen via aan macro