Excel VBA - How to use VLookup with Letters and Numbers to Delete Rows?

Here's an example code that does what you want:

' Verifica se um dado dígito é um número. Retorna True se for, False se não for.
Function ehNumero(ByVal digito As String) As Boolean

    a = Asc(digito)
    If a >= 48 And a <= 57 Then
        ehNumero = True
    Else
        enNumero = False
    End If

End Function

' Separa o código em duas partes, uma numérica e uma alfabética
Function separaCodigo(ByVal codigo As String, ByRef numero As Integer, ByRef letras As String) As Boolean
    p = 0
    For i = 1 To Len(codigo)
        digito = Mid(codigo, i, 1)
        If Not ehNumero(digito) Then ' Achou o ponto de quebra quando encontrar o primeiro dígito não numérico
            p = i
            Exit For
        End If
    Next i

    If p = 0 Or p = 1 Then
        numero = 0
        letras = ""
        separaCodigo = False
    Else
        codigo = UCase(codigo)
        numero = Int(Mid(codigo, 1, p - 1))
        letras = Mid(codigo, p)
        separaCodigo = True
    End If
End Function

' Obtém o valor de uma sequencia de letras na tabela de códigos da configuração
Function valorDasLetras(ByVal letras As String) As Integer
    On Error GoTo trataErro

    valorDasLetras = Application.VLookup(letras, Range("códigos"), 2, False) ' O último parâmetro (False) é FUNDAMENTAL!

    ' Você também pode fazer assim:
    'valorDasLetras = Application.VLookup(letras, Worksheets("Configuração").Range("A2:B11"), 2, False)
    ' Mas é muito melhor ter a definição dos limites num lugar só, por isso use uma tabela nomeada como acima

    Exit Function

trataErro:
    valorDasLetras = 0 ' As letras não existem na tabela de configuração

End Function

'Deleta as linhas da tabela que estejam entre o intervalo dado pelo número de limite inferior e pela letra de limite superior
'Retorna a quantidade de linhas excluidas
Function deletar(ByVal numero As Integer, letras As String) As Integer

    ' Pega o valor das letras do código na tabela de configuração
    valor = valorDasLetras(letras)
    If valor = 0 Then ' O código não foi encontrado
        deletar = -1
        Exit Function
    End If

    ' Define os limites inferior e superior para a deleção
    limInf = numero
    limSup = valor

    ' Seleciona as linhas que serão deletadas da planilha de dados, conforme elas se encaixarem nos limites definidos
    Dim dados As Worksheet
    Set dados = Application.Worksheets("Dados")

    Dim linhasPraDeletar As Range ' Vai guardar as linhas a serem deletadas
    totalLinhas = 0

    linha = 1
    Do While True
        ' Pega o código da linha atual
        curCodigo = dados.Cells(linha, 1) ' Eu coloquei na coluna A pra facilitar o teste

        ' Termina se acabaram os dados da planilha
        If curCodigo = "" Then
            Exit Do
        End If

        ' Separa o código da linha atual em número + letras
        Dim curNumero As Integer
        Dim curLetras As String
        If Not separaCodigo(curCodigo, curNumero, curLetras) Then
            deletar = -1
            Exit Function
        End If

        ' Pega o valor das letras do código na tabela de configuração
        curValor = valorDasLetras(curLetras)
        If curValor = 0 Then ' O código não foi encontrado
            deletar = -1
            Exit Function
        End If

        ' Verifica se o número e as letras estão no intervalo desejado
        ' Se estiver, seleciona toda a linha
        If curNumero > limInf And curValor < limSup Then
            If linhasPraDeletar Is Nothing Then
                Set linhasPraDeletar = dados.Rows(linha)
            Else
                Set linhasPraDeletar = Union(linhasPraDeletar, dados.Rows(linha))
            End If
            totalLinhas = totalLinhas + 1
        End If

        linha = linha + 1
    Loop

    if totalLinhas > 0 Then
        'Set salva = ActiveCell ' <=========== (1)

        linhasPraDeletar.Select
        'linhasPraDeletar.EntireRow.Delete ' <===== Descomente essa linha pra fazer a exclusão de fato

        'salva.Select ' <============= Descomente essa linha e a linha (1) lá em cima para guardar e voltar a célula de seleção atual do usuário
    End If

    deletar = totalLinhas

End Function

' Função atribuída ao clique do botão, para teste
Sub BotãoDeletar_Clique()
    'On Error GoTo trataErro

    ' Lê o código do usuário
    msg = "Digite o código de delimitação do filtro no formato 99XX (sendo que 99 é o número do limite inferior e XX é a letra do limite superior):"
    codigo = InputBox(msg, "Código")
    If codigo = "" Then ' Cancelado
        Exit Sub
    End If

    ' Separa o código no número + letras
    Dim numero As Integer
    Dim letras As String
    If Not separaCodigo(codigo, numero, letras) Then
        MsgBox ("Código inválido: " & codigo)
        Exit Sub
    End If

    ' Chama a função de deleção
    linhas = deletar(numero, letras)
    If linhas = -1 Then
        MsgBox ("Há um error com um código (a letra não existe na configuração)")
    Else
        If linhas = 0 Then
            MsgBox ("Não há linhas no intervalo requisitado - nenhuma linha foi deletada")
        Else
            MsgBox ("Foi(ram) deletada(s) " & linhas & " linha(s)")
        End If
    End If

    Exit Sub

trataErro:
    MsgBox ("O código não está no formato esperado.")

End Sub

His explanation is in the comments, but basically what he does is:

  

Two important observations. The first is that in the code the exclusion is   commented out (as well as the codes that save and restore the   originally selected from the user) so that the selection made   for deletion to remain active for you to debug visually! THE   The second note is that this code uses a named table to   that the cell range is not hard-coded. That   greatly facilitates future maintenance:

     

Resultusingcode"89H" :