Tenho essa planilha em que contém códigos de equipamentos com números e letras e caracteres, e desejo gerar relatório dela, porém quando peço para gerar relatório ela só retorna os com códigos numéricos os demais não.
Este é o código:

Sub Botão4_Clique()
    With Sheets("Relatorio")
    
        .Range("A10:k2002").ClearContents
        .Select
        
        lin = 10
        linha = 10
        col = Val(InputBox("Digite sempre o número 2:"))
        filtro = Val(InputBox("Digite o Código do Equipamento:"))
        
        Do Until Sheets("Lançamentos").Cells(lin, 1) = ""
            If Sheets("Lançamentos").Cells(lin, col) = filtro Then
                .Cells(linha, 1) = Sheets("Lançamentos").Cells(lin, 1)
                .Cells(linha, 2) = Sheets("Lançamentos").Cells(lin, 2)
                .Cells(linha, 3) = Sheets("Lançamentos").Cells(lin, 3)
                .Cells(linha, 4) = Sheets("Lançamentos").Cells(lin, 4)
                .Cells(linha, 5) = Sheets("Lançamentos").Cells(lin, 8)
                .Cells(linha, 6) = Sheets("Lançamentos").Cells(lin, 12)
                .Cells(linha, 7) = Sheets("Lançamentos").Cells(lin, 15)
                .Cells(linha, 8) = Sheets("Lançamentos").Cells(lin, 21)
                .Cells(linha, 9) = Sheets("Lançamentos").Cells(lin, 33)
                .Cells(linha, 10) = Sheets("Lançamentos").Cells(lin, 45)
                .Cells(linha, 11) = Sheets("Lançamentos").Cells(lin, 57)
                
                linha = linha + 1
            End If
            lin = lin + 1
        Loop
    End With
End Sub