Zellen verbinden mittels Schleife?!

Mein Code für die Verbindung von 2 untereinanderliegenden Zellen ist folgender:

'selektierte Kopfzellen verbinden
Range("A11:A12").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.MergeCells = True
End With
Selection.Merge

Nur wäre es vielleicht machbar, das Ganze in eine Schleife zu packen, da ich das ganze nicht nur mit A11 und A12 sondern auch mit B11/B12, C11/C12, D11/D12, E11/E12, F11/F12, J11/12 und K11/K12.
Zudem kommt dann noch, dass ich Spalte G1, H1 und I1 verbinden möchte.

Vielen Dank schonmal im Voraus!!!

euer Marcel :)