Сцепка ячеек построчно, выборка непустых значений из диапазона и подстановка их в одну ячейку - VBA

Формулировка задачи:

Есть диапазон где в строках по условиям появляются значения, например: а1: стул а2: стол а3: /* пустая ячейка, т.к. условие ее заполнения не выполнено а4:диван Нужно получить результат в одной ячейке в1: 1. стул 2. стол 3. диван Как сделать такую сцепку? Как сделать нумерацию в этой сцепке?

Решение задачи: «Сцепка ячеек построчно, выборка непустых значений из диапазона и подстановка их в одну ячейку»

textual
                            Листинг программы 
                        

                            Function Boom(r As Range) As String
Dim x, i&
  For Each x In Intersect(r.Columns(1), r.Worksheet.UsedRange).Value2
    If Len(x) Then
      i = i + 1
      Boom = Boom & vbLf & i & ". " & x
    End If
  Next
  Boom = Mid$(Boom, 2)
End Function
                        