boton buscar siguiente VBA

[El_Gargola]

Hola!! Tengon una table en excel en donde ya pude colocar un boton de busqueda, pero necesito colocar otro boton en donde haga una busqueda siguiente y me de la información requerida, pero la verdad no se como hacerle, en seguida coloco el comando que puse para mi primera busqueda, gracias de antemano.

Private Sub CommandButton1_Click()
Dim expediente_nombre, expedienteBusca As String
Dim fila As Integer
fila = 1
expediente_nombre = TextBox1
Do While expedienteBusca <> expediente_nombre
fila = fila + 1
expedienteBusca = Range("H" & fila).Value
If expedienteBusca = Empty Then
MsgBox "Expediente no encontrado"
Exit Do

End If
Loop

TextBox2 = Range("B" & fila).Value
TextBox3 = Range("M" & fila).Value
TextBox4 = Range("N" & fila).Value
TextBox5 = Range("C" & fila).Value
TextBox6 = Range("K" & fila).Value
TextBox7 = Range("L" & fila).Value
TextBox8 = Range("G" & fila).Value
TextBox1.SetFocus

End Sub