Macro : Merge cell/row "above and below" with separator comma & 1 space

[muhammad susanto]

hi all.,,
how to combine or merge cell (above and below) with multiple column, with separator mark comma (,) and 1 space
i want macro code work multiple column at simultance
here layout table

Kejari siak Nov-Des.xlsx
	A	B	C
65	data1	data2	data3
66	Mitsubishi	Mitsubishi L300	Mitsubishi L300
67	BM 9484 LD	BM 9737 TM	BM 8273 SH
68
69	after macro
70	data1	data2
71	Mitsubishi, BM 9484 LD	Mitsubishi L300, BM 9737 TM
basl

any help, thank
.sst

 

[cooper645]

this is based on your post declaring the rows 65-67 containing source info and target rows 70 & 71

Sub MergeData()
Dim LCol As Long, i As Double

LCol = Cells(65, Columns.Count).End(xlToLeft).Column

For i = 1 To LCol
    Cells(70, i) = Cells(65, i)
    Cells(71, i) = Cells(66, i) & ", " & Cells(67, i)
    Next i

End Sub

 

[muhammad susanto]

hi cooper645, working well..
thank you very much!!!