Come cancellare solo i dati da più fogli di calcolo Excel dopo la copia con VBA

Sono nuovo di zecca per VBA e ho un po 'di codice per trasferire i dati da più fogli di calcolo in un unico foglio di calcolo principale. Funziona bene ma alla fine ho bisogno di cancellare i dati dei giorni da ciascuno dei fogli di calcolo in modo che i dati possano essere trasferiti nuovamente il giorno successivo senza duplicare. C'è qualcosa di semplice che posso aggiungere alla fine del mio script per cancellare tutti i dati che ho appena trasferito? Qualsiasi aiuto sarebbe molto apprezzato

Ecco il mio script finora:

Sub LoopThroughDirectory()

Dim MyFile As String
Dim erow
Dim Filepath As String

Filepath = "C:\Users\Guy\Desktop\nichola\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
    If MyFile = "ZMASTER.xlsm" Then
    Exit Sub
    End If

    Workbooks.Open (Filepath & MyFile)
    Range("A2:E25").Copy
    ActiveWorkbook.Close

    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 5))

    MyFile = Dir
Loop
End Sub

microsoft-excel microsoft-excel-2010 vba

— Nix
fonte

Se hai bisogno di cancellare i dati dal foglio sorgente perché non usi CUT invece di COPY?

— Máté Juhász

L'ho provato e ma non ha funzionato anche quando ho salvato le modifiche nelle singole cartelle di lavoro i dati sono ancora lì?

— Nix

Hai provato .clearcontents sullo stesso intervallo subito dopo la pasta? Hai il permesso di scrivere nelle cartelle di lavoro?

— Máté Juhász

Ho provato a cancellare i contenuti dopo la pasta. Ho ripetuto il bit dell'intervallo, quindi ho cancellato il contenuto ma non funzionava.

— Nix

Sono nuovo di zecca in questo ho paura, quindi anche fare cose semplici mi stanno facendo problemi. Ho il permesso per tutte le cartelle di lavoro.

— Nix