Sub ololo()
Application.DisplayAlerts = False ' подавление предупреждения от экселя, о содержимом которое может быть потеряно
Dim i% ' объявляем переменную счетчика строк
For i = 1 To 4 ' перебираем 4 строки в таблице
If Cells(i, 1) = 1 Then _
' если в первом столбце i-той строки 1
Range(Cells(i, 1), Cells(i, 2)).Select: _
' выделяем ячейку во втором столбце
MergeCells
' вызов процедуры объединения ячеек
Next
Application.DisplayAlerts = True ' включение предупреждения от экселя, о содержимом которое может быть потеряно
End Sub
Sub MergeCells()
With Selection ' объединяем выделенные ячейки
' код записан с помощью макрорекордера
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub