Строка с датой

[FormAlDeGid]

Подскажите пожалуйста как подставить строку в первой ячейке которой стоит сегодняшняя дата?

[Dophin]

куда подставить? откуда подставить? почему примера нету?

[FormAlDeGid]

В конце записей которые копирует макрос из другой книги надо вставить строку с датой

[Maxx]

Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1).Value = Now

[FormAlDeGid]

В очередной раз прокипятив собственный мозг, понимаю что я ничего не понимаю.
только сильно не бейте...
Если подставить эту строку в конце макроса ничего не происходит =(
Где я протупил? какие условия нужны для работы этой строки?

[Maxx]

Может не туда подставляете

Sub a()
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1).NumberFormat = "m/d/yyyy"
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1).Value = Now
End Sub

Вот результат выполнения этого кода в A7:

[FormAlDeGid]

Суперски!!! все работает на УРА!
Еще вопросик в кучу, если позволите, Как сделать шрифт даты жирным а ячейку обвести границами (чтобы заметнее было)

[Maxx]

Тогда уж сразу все в одном флаконе:

With Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1)
    .NumberFormat = "m/d/yyyy"
    .Font.Bold = True
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Value = Now
End With

[FormAlDeGid]

Maxx Спасибо огромное!