Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Column = Range("H1").Column Then
            Dim a As Variant
            a = Cells(Target.Row, 1).Resize(1, 6)
            LookY a
        End If
    End If
End Sub

Sub LookY(a As Variant)
    With Sheets("реестр")
        Dim y As Long
        y = .Cells(.Rows.Count, 2).End(xlUp).Row
        Dim b As Variant
        b = .Range(.Cells(1, 1), .Cells(y, 9))
        For y = 2 To UBound(b, 1)
            If a(1, 1) = b(y, 6) Then
            If a(1, 2) = b(y, 7) Then
            If a(1, 3) = b(y, 8) Then
            If a(1, 4) = b(y, 3) Then
            If a(1, 5) = b(y, 2) Then
                Exit For
            End If
            End If
            End If
            End If
            End If
        Next
        If y > UBound(b, 1) Then
            .Cells(y, 6).Value = a(1, 1)
            .Cells(y, 7).Value = a(1, 2)
            .Cells(y, 8).Value = a(1, 3)
            .Cells(y, 3).Value = a(1, 4)
            .Cells(y, 2).Value = a(1, 5)
            .Cells(y, 4).Formula = .Cells(y - 1, 4).Formula
            .Cells(y, 5).Formula = .Cells(y - 1, 5).Formula
        End If
        With .Cells(y, 9)
            .Value = .Value + 1
        End With
    End With
End Sub