Maybe:
Sub djm601a()
Dim lrow As Long
lrow = Range("A" & Rows.Count).End(xlUp).Row
Range("D1:D" & lrow).FormulaR1C1 = "=(""(""&""'""&RC[-3]&""'""&""""&"")""&"","")&(""(""&""'""&RC[-2]&""'""&""""&"")""&"","")&(""(""&""'""&RC[-1]&""'""&""""&"")""&"","")"
Range("D1:D6").Select
Selection.Clear
Range("D7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D" & Rows.Count).End(3)(1).Value = Left(Range("D" & Rows.Count).End(3)(1), Len(Range("D" & Rows.Count).End(3)(1)) - 1)
End Sub
Bookmarks