Hallo,
zu Deinem Wunsch ein paar Zeilen VBA-Code:
Sub Makro1()
'
For i = 1 To 156 Step 2
Range(Cells(1, i), Cells(1, i + 1)).Select
With Selection
.MergeCells = True
End With
Next i
End Sub
Ob Dir das jetzt schon hilft, weiß ich mit Deinen Angaben nicht.
Wo, und wie man es einbindet, hängt auch ein wenig davon ab, ob
es nur einmal benutzt werden muss, oder eben wiederholt.
Gruß
Kauz