Nächste freie Zellen verbinden?

Hallo zusammen,

ich bräuchte mal eure Hilfe.

Ich will die Zellen N1 und O1 verbinden.

Das kriege ich ja mit Range("N1:O1").Merge hin.

Was ich aber suche ist, Makros soll die nächste freie Zelle in Spalte N und O finden und verbinden. Quasi wenn N1:O1 schon verbunden ist soll er N2:O2 verbinden, also die nächste freie.

Kann mir da jemand helfen?

Danke

Answer 1

[Suboptimierer]

Sub optimierer()
   Dim rng As Range
   Set rng = Range("N1:O1")
   While rng.MergeCells
       Set rng = rng.Offset(1).Resize(1, 2)
   Wend
   rng.Merge
End Sub