Makro Änderung

kann man so ein Makro noch anders Schreiben, noch etwas verkleinern?

Range("T7:U7,T8:U8,V7:W7,V8:W8,X7:Y7,X8:Y8,Z7:AA7,Z8:AA8,AD7:AF7,AD8:AF8,AG7:AI7,AG8:AI8,AJ7:AK7,AJ8:AK8").Select
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
End With
With Selection.Font
.Name = "Arial"
.Size = 9
End With

Thomas H.