Concatenate multiple cells in a column into one cell - excel

Question

I need to combine multiple cells in a column in one cell.
Data is present in Column A:
0100
0800
ABCD
LMKQ
.
.
.
and so on
Cell B2 should have the below value:
'0100', '0800', 'ABCD', 'LMKQ'.... and so on
My code identifies all the data but populates just the data in last cell:
Sub concatMyData()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(2, "B").Value = "'" & Cells(i, "A").Value & " '" & Cells(i + 1, "A").Value & "'"
Next i
End Sub

Answer 1

Check this:
Sub concatMyData()
Dim first As Boolean
first = True
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Not first Then Cells(2, "B").Value = Cells(2, "B").Value & ", "
Cells(2, "B").Value = Cells(2, "B").Value & "'" & Cells(i, "A").Value & "'"
first = False
Next i
End Sub

Answer 2

You can do this with one line of code and not have to loop (much MUCH faster):
Range("B2").Formula = "'" & join(application.transpose(Range("A2:A" & range("A" & rows.count).end(xlup).row)),"', '") & "'"
I assumed you have a header in A1 so started on A2, you can change it to A1 if you wish.
I noticed you asked for an explanation on the other answer so:
Egan's code will loop through each cell in column A and add it to what is currently in cell B2. So it basically adds to B2 the value of what cell it is up in in column A and a ', 'each time it loops until it runs out of data in column A. It also puts a ' on the start and end.
My code will take the range and transpose it into an array (the data goes down, an array goes sideways so we transpose it), then it will join the array of values into a single string. We do this using the JOIN function and we specify ', ' as what it should put between each element of the array (the delimiter).
Then we simply add a ' on the start and the end as it won't have it there to begin with and voila, one string of joined values without looping.
They effectively do the same thing, mine just does it in one go rather than a cell at a time.