Robocopy VBA

hi i was actually looking for help in this code i got from vba forum by so
It does not seem to work on my pc. i have attached the excel. i have mentioned the details in sheet1 and in sheet2 the screenshot
Sub SO()

Const Q As String = """"
CreateObject("WScript.Shell").Run "CMD /C ROBOCOPY " & Q & Range("A6").Value & Q & " " & Q & Range("C6").Value & Q, False, 0

End Sub

many thanks in advance

AttachmentSize
Book111.xls158.5 KB