Sub Entrada()
'
' Entrada Macro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
'Verifica as celulas se estão vazias
If Range("D4") = Empty Then
MsgBox "Medicamento não fornecido!", vbCritical, "Excluir"
Range("D7").Activate...