vba 进行单元格合并问题请教,谢谢!

我写了一个函数,将excel前五行每一行从左至右如果两个单元格值相同就合并，但目前效果是每行它只合并一次就不行了。请高手指点，非常感谢！

Public Function xlsMerge(strPathName As String, sheetName As String, startColumn As Integer, startColumnName As String)

Dim xlsApp As Object
Dim xlsBook As Object
Dim xlsColumn As Integer
    Dim rowGeValue As String
    Dim rowGeValueNext As String
    Dim rowGeValueNextNext As String
   
    Set xlsApp = CreateObject("Excel.Application")
    Set xlsBook = xlsApp.Workbooks.Open(strPathName)
  
    '获取该表列数
    xlsColumn = xlsBook.Worksheets(sheetName).range("a6").CurrentRegion.Columns.Count
    '如果列数大于0则继续
    If xlsColumn > 0 Then
      rowGeValue = xlsBook.Worksheets(sheetName).range(GetLie(startColumnName) & startColumn)
      rowGeValueNext = xlsBook.Worksheets(sheetName).range(GetLie(GetLie(startColumnName)) & startColumn)
     
      If (rowGeValue = rowGeValueNext) Then
      rangeStart = GetLie(startColumnName) & Trim(str(startColumn))
      rangeEnd = GetLie(GetLie(startColumnName)) & Trim(str(startColumn))
     
      xlsBook.Worksheets(sheetName).range(rangeStart & ":" & rangeEnd).merge
      End If
        
     xlsApp.Visible = True
   End If
End Function