자동 셀병합 함수 오류

Option Explicit
 
Sub Test()
   Dim rngAll  As Range
   Dim rngC    As Range
   Dim colsCnt As Integer
   Dim i       As Long
 
   Application.ScreenUpdating = False  '화면 자동 업데이트 정지
   Application.DisplayAlerts = False
 
   Set rngAll = Selection              '작업할 전체 영역
   colsCnt = rngAll.Columns.Count      '전체 작업영역의 행 갯수
 
   With rngAll                         '전체영역에서
      On Error Resume Next             '에러나도 다음코드 진행
         For i = 1 To colsCnt          '전체영역 열 갯수만큼 반복
            .Columns(i).SpecialCells(4).Merge '빈셀찾아 셀병합
         Next i
   End With
 
   For i = 1 To colsCnt                         '열 갯수만큼 반복
      With rngAll.Columns(i).SpecialCells(4)    '각 column마다 area 마다
         For Each rngC In .Areas                '각 column의 area마다
            rngC.Offset(-1).Resize(2).Merge     '각 영역 윗칸과 셀병합
         Next rngC
      End With
   Next i
 
   Application.DisplayAlerts = True             '경고기능 되살려 놓음
   Application.ScreenUpdating = True
 
   On Error GoTo 0 '에러 초기화
 
   Set rngAll = Nothing
 
End Sub