У вас получается после формы идет. по любому. возвращение в основной код. Вот по этому вам и предложили сделать глобальную переменную. Из формы в неё заносится инфа и когда вы иp формы переходите в основной код то сверяете значение переменной и производите соответстdующие действия. код 1 или Exit Sub.
Sub Obyedenenie()
Dim LRow As Long, T As String
Application.ScreenUpdating = False 'отключаем обновление экрана
LRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по 1 столбцу
For i = 26 To LRow
T = Range("G" & i)
With Range("C" & i & ":Q" & i)
.ClearContents
.MergeCells = True
.Value = T
.HorizontalAlignment = xlLeft
End With
Next
Application.ScreenUpdating = True 'включаем обновление экрана
End Sub