Tengo un userform con listbox antes me funcionaba pero ahora no muestras los datos no se que paso .

Este es el código del botón siguiente

Private Sub cmdSiguiente_Click() ' siguiente
Dim Encontrado As Range

Sheets("listaS").Unprotect "2015" 'AQUI ACTIVA Y PROTEJE LAS HOJAS

Worksheets("listaS").Activate
n = 0
If n < 25 Then
n = n + 1

'Cells.FindNext(After:=ActiveCell.Offset(0, 3)).Activate

Set Encontrado = Cells.Find(What:=txtFiltro1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If ActiveCell.Row = ActiveCell.Column = priC And PriL Then
MsgBox "Estas en la primera celda"
End If
End If

On Error GoTo Errores

'aqui se muestran los datos
If Me.txtFiltro1.value = "" Then Exit Sub
Me.ListBox1.Clear
Columna = Encabezado.ListIndex
j = 1
Filaz = Range("a1:A65000").CurrentRegion.Rows.Count
For i = 2 To Filaz

If LCase(Cells(i, j).Offset(0, CInt(Columna)).value) Like "*" & LCase(Me.txtFiltro1.value) & "*" Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)

Else
End If
Next i
Exit Sub
Errores:
'MsgBox "No se encuentra en Lista.", vbExclamation, "EXCELeINFO"
Filaz = MsgBox(" No Hay Mas Registros ", vbOKOnly + vbExclamation, "AVISO")

'Cells. FindNext
Sheets("listaS"). Protect "2015" 'AQUI ACTIVA Y PROTEJE LAS HOJAS

End Sub