Как настроить подставление текущей даты, при заполнении соседней ячейки на несколько столбцов?

Супер, спасибо большое! Подскажите пожалуйста, а как можно сделать, чтобы макрос выдавал только дату, а не дату+время