Code:
Sub M_snb()
  Sheet1.UsedRange.Offset(1).Copy
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    sn = Split(Replace(Replace(.gettext, vbTab, """;"""), vbCr, """" & vbCr), vbCrLf)
    
    For j = 0 To UBound(sn)
      sn(j) = Replace(sn(j), """", "", , 1)
    Next
  End With

  Sheet2.Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub