Для решения этой задачи в VBA можно написать следующий код:

Sub CheckDailyRevenue()
Dim currentDate As Date
Dim totalRevenue As Double
Dim todayRevenue As Double
Dim averageRevenuePerDay As Double
Dim successfulDay As Boolean
' Установим значения текущей даты, общей выручки и выручки за текущий день
currentDate = DateValue("01.09.2021")
totalRevenue = 10000 ' общая выручка за предшествующие дни месяца
todayRevenue = 500 ' выручка за текущий день
' Рассчитаем среднедневную выручку с начала текущего месяца
averageRevenuePerDay = totalRevenue / (Day(currentDate) - 1)
' Проверим, был ли день удачным
If todayRevenue > averageRevenuePerDay Then
successfulDay = True
Else
successfulDay = False
End If
' Выведем результат на экран
If successfulDay Then
MsgBox "День был удачным! 🎉"
Else
MsgBox "День не был удачным. 😔"
End If
End Sub

Просто замените значения переменных currentDate, totalRevenue и todayRevenue на актуальные значения для вашего случая. Вы можете запустить данный код в VBA редакторе Excel, нажав Alt + F11 и создав новый модуль. После запуска скрипта, вы получите сообщение, был ли день удачным или нет, согласно заданным данным.