You just need to make a small change to your program.
Instead of writing just XCOPY C:\......

you write
shell ("XCOPY C:\Tally\*.* D:\Tally\)

You really should consider using the VBA version of this.
It runs faster, and it allows for error  handling (if necessary).

try:
Sub Button1_Click()
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfile "C:\Tally\*.*", "D:\Tally\", True
End Sub