Experimente:

Private Sub txtItem_Change()
With ActiveSheet.ListObjects("Tabela1").DataBodyRange
If txtItem = "" Then
If txtOp.Text = "" Then
.AutoFilter
Else: txtOp_Change
End If
End If
.AutoFilter Field:=4, Criteria1:=">=" & Me.txtItem.Text & Application.Rept("0", 6 - Len(Me.txtItem.Text)), _
Criteria2:="<=" & Me.txtItem.Text & Application.Rept("9", 6 - Len(Me.txtItem.Text))
End With
End Sub

Private Sub txtOp_Change()
With ActiveSheet.ListObjects("Tabela1").DataBodyRange
If txtOp = "" Then
If txtItem.Text = "" Then
.AutoFilter
Else: txtItem_Change
End If
End If
.AutoFilter Field:=3, Criteria1:=">=" & Me.txtOp.Text & Application.Rept("0", 6 - Len(Me.txtOp.Text)), _
Criteria2:="<=" & Me.txtOp.Text & Application.Rept("9", 6 - Len(Me.txtOp.Text))
End With
End Sub

obs. para o correto funcionamento dos códigos acima os números nas colunas C e D da Tabela1 DEVEM CONTER 6 DÍGITOS, como está na planilha que você postou.

@osvaldomp, muito obrigado amigo!
Funcionou perfeitamente.