Guru do Excel e Power BI

Bom Dia!
Tenho a macro abaixo funcionando OK.
Do While Range("H4").Value = ""
If Range("H4").Value = "" Then
MsgBox "Favor Escolher Uma Descrição da Peça", 48, "Campo em branco"
flag = 1
End If
If Range("H5").Value <> "" Or Range("H6").Value <> "" Then
MsgBox "Informe a Descrição da Peça", 48, "Campo em branco"
flag = 1
End If
Exit Do

O Pedido de Ajuda
Como Incluir a rotina abaixo na macro acima
Se (“H5”) > (“H6)
MsgBox "Valores Discrepantes", 48, "Campo em branco"
flag = 1
Fim-se

Desde Já Agradeço

Olá, Saulo.

Veja se ajuda.

Bom Dia ! osvaldomp - 20 Mai 2021 às 17:52
Era Isso Mesmo, Funcionou.
Grato