VBA Excel - Łącznie i środkowanie wierszy z różnych kolumn

Cześć,
Jako laik w kwestii VBA muszę się zwrócić z prośbą o pomoc.

Chcę napisać makro, które będzie łączyć komórki z identycznymi wartościami w sąsiadujących ze sobą kolumnach, a następnie środkować ich zawartość.

O ile coś podobnego udało mi się napisać dla łączenia komórek w tej samej kolumnie (czyli z różnych wierszy), to nie wiem jak się za to zabrać w przypadku różnych kolumn.

Poniżej kod. Ma ktoś pomysł jak się za to zabrać?

Sub MergeCells()



    Application.ScreenUpdating = False



    Application.DisplayAlerts = False



 



    Dim rngMerge As Range, cell As Range



    Set rngMerge = Range("Q3:Q150,K3:K150,A3:A150") 'Set the range limits here



 



MergeAgain:



    For Each cell In rngMerge



        If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then



            Range(cell, cell.Offset(1, 0)).Merge



            GoTo MergeAgain



        End If



    Next



 



    Application.DisplayAlerts = True



    Application.ScreenUpdating = True



End Sub

MergeAgain:
For Each cell In rngMerge
If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then
Range(cell, cell.Offset(1, 0)).Merge
GoTo MergeAgain
End If
Next

Trochę nielogiczne. Nigdy nie zrobiłbym tak, aby zakończyć petli