Добавить сейчас () -1 в столбце А, если к соседним столбцам добавлены данные

Question

Я обновляю отчет каждый день и добавляю данные за вчерашние пробеги.Я хотел бы вставить код в макрос, чтобы добавить дату в столбец A рядом с вновь добавленными данными без изменения предыдущих дат, уже находящихся в столбце A.

Sub datedd()

    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row

    With Range("A2:A" & lastRow)
        .Value = Now -1
        .NumberFormat = "mm/dd/yy"
    End With
End Sub

Но это изменяет все даты в столбцеA

не уверен, почему вставка в коде разбивается так, извините, я новенький здесь!

Answer 1

Sub datedd()
    Dim lastRow As Long
    Dim firstRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    firstRow = Range("A" & Rows.Count).End(xlUp).Row + 1

    With Range("A" & CStr(firstRow) & ":A" & CStr(lastRow))
        .Value = Now -1
        .NumberFormat = "mm/dd/yy"
    End With
End Sub