Visual Basic Makro MergeCells

Sub MergeCells()
'
' MergeCells Makro
' Makro am 04.12.2002 von aufgezeichnet
'
' Tastenkombination: Strg+s
'
Range("A18:B18").Select
With Selection
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End Sub

Wie kann ich in Visual Basic definieren, das der Vorgang für alle folgenden Zellpaare bis Reihe 968 wiederholt wird? Hängt vermutlich mit Range Select zusammen. Wer kann helfen?

Vielen Dank im voraus

Best,

M.