Conditionally merge cells based on number?

Jyggalag77 

Sub merge()

Dim i As Long
Dim x As Variant
Dim result As String
Dim k As Long
Dim m As Long

Range("B:B").Clear

m = Range("A" & Rows.Count).End(xlUp).Row
k = 3

For i = 3 To m

x = Right(Cells(i, 1), 1)
If IsNumeric(x) Then

Cells(k, 2).Value = Trim(result & " " & Cells(i, 1).Value)
k = k + 1
result = ""

Else

result = Trim(result & " " & Cells(i, 1).Value)

End If

Next i

End Sub

Maybe with this code. In the attached file you can click the button in cell D2 to run the macro.