I am looking for a simple VBA to fetch data from cells in sheet named "Data" and Concatenate data in Sheet named "Table1".
The Data Sheet file appears as below:

Input in Sheet named "Data"
cellA1 CellB1
Apple a,b, Good night1
Grape a,b,c, d, e
Banana e, f()[]1,c, a{}
Grape, Apple, Grape **, e, VB
Banana





















Input in Sheet named "Table1"
a b c d e f()





Output in Sheet named "Table1"
a b c d e f()
Apple
Grape
Banana		 Apple
Grape		 Grape
Banana		 Grape Apple
Grape
Banana		 Banana








P.S. Remove duplicates if any.