Нужна помощь в написании VBA⁠⁠

Не обессудьте. Я в Exel не силен.

При попытке написания макроса в VBA формула "Если" или "iif" ведет себя немного неясно.

По факту нужно, что бы макрос копировал вывод одной формулы и вставлял ее текстовое значение в первую пустую ячейку "календаря"

В формуле изложено, что если первая ячейка будет меньше 0 (т.е. пустая), то он вставит скопированное число в эту ячейку, если нет, то пойдет на следующую и так дальше и дальше. На деле он просто вставляет в самую последнюю переменную (на данный момент 3 ячейку таблицы (не видел смысла больше делать, раз пока не работает) и все, что не пытался написать во всех 3 ячейках и изменить параметр переменной - он все время идет в конец.

Раньше никогда проблем не было с формулами в самом екселе, но с макросами еще мало знаком. Формула приведена пониже:

"

Sub Копирование()

Range("I5").Select

Selection.Copy

Formula = IIf("B3" < "0", Range("B3").Select, IIf("C3" < "0", Range("C3").Select, IIf("D3" < "0", Range("D3").Select, "0")))

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

"