validar Edicion en ListBox

[JoaoM]

Estaba editando y no me dejo entrar la edición del post

el problema aquí es ue tien que ordenarlos por la B y arrastrar consigo la A, la C ect hasta la G

Código:

En modulo
Public Modificar As Boolean     '<==
Public FilaModificacion As Long '<==

Sub client()
BuscaClientes.Show
End Sub

En formulario

Código:

Private Sub cbtEdCli_Click()
    Dim strfila$
    Dim fila As String
    With Worksheets("Clientes")
        [A65536].End(xlUp).Offset(1, 0).Select
        strfila$ = .Range("a1:a50000").Find(txtRIF, lookat:=xlWhole).Row
        .Range("A" + strfila$) = txtRIF
        .Range("B" + strfila$) = txtNombre
        .Range("C" + strfila$) = txtDirecci
        .Range("D" + strfila$) = txtP_Ciud
        .Range("E" + strfila$) = txtTelf1
        .Range("F" + strfila$) = txtTelf2
        txtRIF = "": txtNombre = "": txtDirecci = "": txtP_Ciud = "": _
        txtTelf1 = "": txtTelf2 = "": txtFech = ""
        If Modificar = True Then Modificar = False
        Call actualizar_lista
        Exit Sub
    End With
    'buscar.SetFocus
End Sub

Private Sub actualizar_lista()
    lista.RowSource = ""
    lista.RowSource = "Filtro!A2:G" & Sheets("Filtro").Range("A" & Rows.Count).End(xlUp).Row
    Buscar.SetFocus
End Sub

Sobre el ordenar los datos cuando se edita cualquier cliente tiene que ordenarlos por el nombre (columna B). Este ordenamiento tien que llevarse conjuntamente el cod Cliente (A) y los demás de la C, D, ect hasta la G




"Filtro" es una hoja para el filtro de la búsqueda y algo mas
Gracias Hector