Сравнение диапазонов

 x = 2
        For a = 8 To LastColumn
            If .Cells(2, a).MergeCells Then
                If Not IsEmpty(.Cells(2, a)) Then
                    Set rng = .Cells(2, a).MergeArea: LineStart = rng.Cells(1, 1).Column: LineEnd = rng.Cells(rng.Rows.Count, rng.Columns.Count).Column
                    ggjj = .Cells(3, LineStart)
                    For n = LineStart To LineEnd Step 5
                        hh = .Cells(3, n)
                        
                        MashinsInLine = ProductionLinesListObj.DataBodyRange.Columns(x)
                        For aa = LBound(MashinsInLine) To UBound(MashinsInLine) - 1
                            v = v + 1 '
                            If .Cells(3, n) <> MashinsInLine(aa, 1) Then f = f + 1
                            '                        .
                            Lines = ProductionLinesListObj.Range.Cells(1, x)
                        Next aa
                    Next
                    x = x + 1
                End If
            End If
            
        Next

  Dim a As Range, c As Range, n As Integer
                    Dim myarr
                    For Each a In MachinsInLine.Cells
                                             For Each c In ...
                            If c = a Then ...
 
                           Next c, a