Celri, utilizar wildcard com numeros é meio complicado, eu já precisei e não encontrei o exemplo que tinha, mas pelas instruções estou supondo que está utilizando um modelo igual a este ( http://guiadoexcel.com.br/lista-com-fil ... omatico-2/), então baseando na solução apresentada no link http://stackoverflow.com/questions/3036 ... -field-jus, troque a sua rotina pela a abaixo, só lembre de colocar o nome da aba na linha, With Worksheets("NomeDaSuaAba").
Faça os testes e veja se é isto :

Private Sub Coleta_Change()
  
    Dim a As Long, aTMPs As Variant, dVALs As Object
    Dim sValor
    
    sValor = Coleta.Text

    Set dVALs = CreateObject("Scripting.Dictionary")
    dVALs.CompareMode = vbTextCompare

    With Worksheets("NomeDaSuaAba")
        
        'If .AutoFilterMode Then .AutoFilterMode = False
        
        With .Cells(1, 1).CurrentRegion
            'build a dictionary so the keys can be used as the array filter
            aTMPs = .Columns(1).Cells.Value2
            
            For a = LBound(aTMPs, 1) + 1 To UBound(aTMPs, 1)
                Select Case True
                    Case Not CBool(Len(aTMPs(a, 1)))
                        dVALs.Item(Chr(61)) = Chr(61)   'blanks
                    'Case CStr(aTMPs(a, 1)) Like "1*"
                    Case CStr(aTMPs(a, 1)) Like sValor + "*"
                        'The set of numbers have to be strings in the array
                        If Not dVALs.Exists(aTMPs(a, 1)) Then _
                            dVALs.Add Key:=CStr(aTMPs(a, 1)), Item:=aTMPs(a, 1)
                    Case Else
                        'no match. do nothing
                End Select
            Next a

            'test the array
            'Dim k As Variant
            'For Each k In dVALs.Keys
            '    Debug.Print k & " - " & dVALs.Item(k)
            'Next k

            'filter on column B if dictionary keys exist
            If CBool(dVALs.Count) Then _
                .AutoFilter Field:=1, Criteria1:=dVALs.Keys, _
                                      Operator:=xlFilterValues, VisibleDropDown:=True

            'data is filtered on 614* and blanks (column B)
            'Perform work on filtered data here

        End With
       ' If .AutoFilterMode Then .AutoFilterMode = False
    End With

    dVALs.RemoveAll: Set dVALs = Nothing
  
End Sub

[]s

Ola Mauro Coutinho, a rotina deu erro :

For a = LBound(aTMPs, 1) + 1 To UBound(aTMPs, 1)

Segue print:

Só pelo print e sem a identificação do erro fica dificil, cheguei a aplicar e testar no modelo que indiquei e não chegou a dar nenhum erro utilizando esta rotina na coluna "A" Código.
Se possível anexe seu modelo reduzido e compactado para analise.

[]s

Ola Mauro Coutinho, boa tarde!

Desculpa a demora, segue anexo.

Bom dia pessoas!

Encontrei uma solução temporária, acrescentando uma barra no final do numero, assim o código lê, mas gostaria ainda de saber como faz para ler números.