ник: snipe
так например
for i=1 to 3
.Range(.Cells(2, i), .Cells(12, i)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge
.Range(.Cells(13, i), .Cells(17, i)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge
next i