Копирование файла из одного местоположения в C: \ и последующее удаление версии в исходном расположении аналогично перемещению файла, поэтому сделайте это вместо этого:
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile File, "C:\"
Set objFSO = Nothing
Если вы действительно хотите сделать это так, как вы описали, то:
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
objFSO.CopyFile File, "C:\"
If Err.Number = 0 Then objFSO.DeleteFile File
On Error Goto 0
Set objFSO = Nothing
сделает свое дело.