You know, sometimes you can't see the wood for the trees:

Sub sCopyFiles()

' "C:\Users\witham\Google Drive\TESTFOLDER\CS-RAG.pdf", "C:\Users\witham\Google Drive\TESTARCHIVEFOLDER\CS-RAG-june.pdf"

Dim fso
Dim sFileName As String
Dim sSourceName As String

' problem was Cells("A1")
' use
sFileName = Sheets("sheet1").Range("A1")
sSourceName = Sheets("sheet1").Range("A2")
' or
sFileName = Sheets("sheet1").Cells(1, 1)
sSourceName = Sheets("sheet1").Cells(2, 1)

Set fso = CreateObject("scripting.filesystemobject")
fso.copyfile sFileName, sSourceName

End Sub

Regards, TMS