Guru do Excel e Power BI

Private Sub Confirmar_Click()
    Dim vrtLinha    As Variant
    Dim loTabela     As ListObject
    
    Set loTabela = wshMenu.ListObjects("Tabela2")
    
    With loTabela
        wshMenu.Range("XFD1").Formula2Local = "=CORRESP(""" & Requisicao.Ref.Value & _
                                                            Requisicao.Tipo.Value & _
                                                            """;Tabela2[Refer?ncia]&Tabela2[Tipo];0)"
        vrtLinha = wshMenu.Range("XFD1").Value2
        wshMenu.Range("XFD1").Value2 = vbNullString
        
        If VBA.IsNumeric(vrtLinha) Then
            If VBA.CLng(Requisicao.Quant.Value) > .DataBodyRange(vrtLinha, 3).Value2 Then
                VBA.MsgBox "A quantidade solicitada e maior que o estoque"
                Exit Sub
            End If
            .DataBodyRange(vrtLinha, 3).Value2 = .DataBodyRange(vrtLinha, 3).Value2 - Requisicao.Quant.Value
        End If
    End With
End Sub