VBA Combine Each Row Into One Single Row?

I want to combine each row in column A that contains data (so stop process when the next cell is blank) into one single cell. However, each time a row is added I want it to have a new line, except for the last one. I don't know vba that well. I came up with something.

Basically I want to do this:
=A1&char(10)&A2
VBA
Dim i As Integer
i = 0
Do While Not IsEmpty(ActiveCell.Offset(0, -1))
If (i = 0) Then
ActiveCell.FormulaR1C1 = "=RC[-1]"
i = i + 1
Else
ActiveCell.FormulaR1C1 = "&CHAR(10)&R[i]C[-1]"
i = i + 1
End If
Loop