Объединение пустых строк в заголовки

[Павел1989]

Всем доброго дня. Нужна помощь. Задача следующая , есть таблица , она не имеет заголовков, точнее они есть но в первом столбце.Задача из объединить с пустыми ячейками справа для того чтобы образовался общий заголовок. Ни как не пойму каким кодом это реализовать. Пробовал этот, но ...
Sub JoinEmpty()
Dim i As Long
Dim j As Long
For j = 1 To Selection.Rows.Count
For i = 1 To Selection.Columns.Count
If Selection.Cells(j, i) = "" Then
ActiveSheet.Range(Selection.Cells(j , i - 1), Selection.Cells(j, i)).Merge
End If
Next
Next
Selection.HorizontalAlignment = xlVAlignCenter
End Sub

[Elixi]

Sub JoinEmpty()

PoslRow = Cells.Find(What:="*", After:=[a1], _
        SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
PoslCol = Cells.Find(What:="*", After:=[a1], _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    For R = 1 To PoslRow
        For C = 2 To PoslCol
            If Cells(R, C) <> "" Then GoTo NextR
        Next C
            Range(Cells(R, 1), Cells(R, C)).Merge
            Cells(R, 1).HorizontalAlignment = xlVAlignCenter
NextR:
    Next R
End Sub

[Павел1989]

Спасибо, то что нужно. Очень помогли.