```
Sub CombineAddresses()
Dim X As Variant, LastRow As Long, Blanks As Range, Ar As Range
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("C2:C" & Rows.Count).Clear
On Error GoTo NoBlanks
Set Blanks = Range("A1:A" & LastRow).SpecialCells(xlBlanks)
For Each Ar In Blanks.Areas
Ar(1).Offset(-1, 2) = Join(Application.Transpose(Ar(1).Offset(-1, 1).Resize(Ar.Count + 1)), "")
X = Ar(1).Offset(-2).Row
Do While Len(Cells(X, "A").Value) > 0 And X > 1
Cells(X, "C").Value = Cells(X, "B").Value
X = X - 1
Loop
Next
If Len(Cells(LastRow, "A").Value) Then
Cells(LastRow, "C").Value = Cells(LastRow, "B").Value
X = LastRow - 1
Do While Len(Cells(X, "A").Value) > 0 And X > 1
Cells(X, "C").Value = Cells(X, "B").Value
X = X - 1
Loop
End If
Exit Sub
NoBlanks:
Range("C2:C" & LastRow).Value = Range("B2:B" & LastRow).Value
End Sub
```