Перетащите дату до последней строки

Question

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

Range("A61").Select Selection.AutoFill Destination:=Range("A61:A62"), Type:=xlFillDefault Range("A62:A63").Select

Но так как эта таблица не устарела c, я не могу определить конкретное c местоположение / диапазон

lastRow = Sheets("ECC Email Count").Cells(Rows.Count, "E").End(xlUp).Row + 1

strVin = Sheets("Pivot2").Cells(20, 35).Value
strPaul = Sheets("Pivot2").Cells(21, 35).Value
strJames = Sheets("Pivot2").Cells(22, 35).Value
strOdeta = Sheets("Pivot2").Cells(23, 35).Value
strJamesB = Sheets("Pivot2").Cells(24, 35).Value
strJohn = Sheets("Pivot2").Cells(25, 35).Value

With Sheets("ECC Email Count")
    .Cells(lastRow, 5).Value = strVin
    .Cells(lastRow, 6).Value = strPaul
    .Cells(lastRow, 7).Value = strJames
    .Cells(lastRow, 8).Value = strOdeta
    .Cells(lastRow, 9).Value = strJamesB
    .Cells(lastRow, 10).Value = strJohn     

DateRow = Sheets("ECC Email Count").Cells(Rows.Count, "A").End(xlUp).Row Range("DateRow").Select Selection.AutoFill Destination:=Range("DateRow + 1"), Type:=xlFillDefault

В любом случае, я могу поставить это с постоянно растущим столом?