Excel - Ordenar columnas en listbox

Private Sub descr_Change()

    ListBox1.Clear

    Application.ScreenUpdating = False

    On Error Resume Next

    Dim fila, a As Integer

    a = 0

    fila = Hoja5.Range("A" & Rows.Count).End(xlUp).Row

    For i = 6 To fila

        If Hoja5.Range("B" & i) & Hoja5.Range("C" & i) Like "*" & descr & "*" Then

            ListBox1.AddItem

            ListBox1.List(a, 0) = Hoja5.Range("A" & i)

            If Hoja5.Range("B" & i) = "Buggy" Then

                ListBox1.List(a, 1) = Hoja5.Range("C" & i)

                ListBox1.List(a, 2) = Hoja5.Range("B" & i)

            Else

                ListBox1.List(a, 1) = Hoja5.Range("B" & i)

                ListBox1.List(a, 2) = Hoja5.Range("C" & i)

            End If

            a = a + 1

        End If

    Next i

    If ListBox1.ListCount = 0 Then

        MsgBox ("Refacción no encontrada")

    End If

End Sub