具有基于日期的可变行输入的Excel宏

I am trying to set up a macro which for the sake of argument works like this: which for the sak