Задача - создать макрос, который будет соединять ячейки с повторяющимся значением. При активации нижеследующего макроса:


Sub macro1()
Dim i As Integer
Dim iRange As Range
For i = 3 To 86:
   Set iRange = Range(Cells(i-1,  , Cells(i,  )
   If Cells(i,  8)= Cells(i - 1,    Then
        With iRange
           .Merge
        End With
   End If
Next i
End Sub

выходит ошибка runtime error #1004: application-defined or method-defined error. Пробовал различные вариации с тем же неуспехом.