Special concatenation

[snb]

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

[DocAElstein]

CODE......

. I must get around to learning / practicing that "thing" of yours as well sometime - using the clipboard, then manipulating the text string with a "One liner…"
( gives the results , just not the 0.00 - but neither does mine really, and looping like Rick does would take away the nice "one liner " bit.. shame