in B1
=IF(MOD(ROW(B1),4)=1,A1&","&A1&","&A3,"")

then drag fill down the column.

--
Regards,
Tom Ogilvy




"Chuong Nguyen" wrote:

Please help
i had a excel workbook with few thousand lines of name, address

A

1 Name
2 Adrress1
3 Adrress2
4
5 Name
6 Adrress1
7 Adrress2

I need to merge it into some thing like this

A B

1 Name Name, Address1, Address2
2 Adrress1
3 Adrress2
4
5 Name Name, Address1, Address2
6 Adrress1
7 Adrress2

Please help with a VBA code or Marco
Thanks

Best Regards