Dim i&, j&, t$, ws As Worksheet ', c As Range
    t = ComboBox3.Text: If Len(t) = 0 Then Exit Sub
    Set ws = Worksheets("Реестр")
     ListView1.ListItems.Clear
    For i = 1 To UBound(a)
        If t = a(i, 1) Then
           With ListView1.ListItems.Add(, , ws.Cells(i, 1))
                For j = 2 To 8
                    .SubItems(j - 1) = ws.Cells(i, j)
                Next
           End With
        End If
    Next