Für eure Hilfe wäre ich sehr dankbar.
Hier der Anfang den ich schon gemacht habe
Set wb = ThisWorkbook
verzQuelle = "C:\Kopierliste\Original\"
verzZiel = "C:\Kopierliste\Kopie\"
Set ws = wb.Worksheets(1)
ws.Columns("B").ClearContents
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set fso = New FileSystemObject
If Not fso.FolderExists(FolderSpec:=verzQuelle) Then
MsgBox verzQuelle & " existiert nicht"
Exit Sub