You need to add the quotes in the right places:

oEntryWsh.Range("c8").Formula = "=" & """" & "C:\User\fx\" & oEntryWsh.Range("J" & Cell.Row).Value & "\Desktop\" & """"