Excel - Macro para realizar un buscador tipo google

Private Sub txtBuscar_Change()

   '

   Dim I As Integer

   Dim X As Integer

   '

   If txtBuscar.TextLength = 0 Then    'Si no hay texto oculta la lista y sale

      Lista.Visible = False

      Exit Sub

   End If

   '

   Lista.Clear

   C = 0

   '

   For I = 2 To Datos.Cells(Rows.Count, 1).End(xlUp).Row

      If UCase(Datos.Cells(I, 1)) Like "*" & UCase(txtBuscar) & "*" Then

         With Lista

            .AddItem

            ..List(.ListCount - 1, 0) = Datos.Cells(I, 1)

            .List(.ListCount - 1, 1) = I  ' <------   El Error esta aquí, cambia el 2 que tiene por 1

            C = C + 1

         End With

      End If

   Next

   '

   Lista.Visible = True

   '

End Sub

Private Sub Lista_Click()

   '

   Dim A As Integer

   Dim I As Integer

   Dim X As Integer

   '

   With Lista

      If .ListCount = 0 Then Exit Sub

      I = .List(.ListIndex, 1) ' <-------------------Cambia el 2 por 1

      .Visible = False

      txtBuscar = ""

      X = Busca.Cells(Rows.Count, 1).End(xlUp).Row + 1

      '  Copio datos a la hoja busca

      For A = 1 To 6

         Busca.Cells(X, A) = Datos.Cells(I, A)

      Next

      Busca.Range("A" & X).Select

   End With

   '

End Sub