try it
Sub ttt()
With Range("A1:B2")
    .Replace """""", """"
    .Replace """ "",", ""
End With
End Sub