Как автоматически заполнить данные в динамическом столбце в Excel, используя VBA

Question

Шаг-1 Я хочу найти первый пустой столбец в листе Excel.

Шаг-2 Добавить данные в первую ячейку первого пустого столбца (определено в шаге-1)

Шаг-3 Найти значение последней ячейки столбца А.

Шаг 4 Заполните дату в первом пустом столбце до последнего значения ячейки

Вот код, который я пробовал до сих пор:

Sub age()


  Dim OpenWb As Workbook
  With Application.FileDialog(msoFileDialogFilePicker)
        'Makes sure the user can select only one file
        .AllowMultiSelect = False
        'Filter to just the following types of files to narrow down selection options
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        'Show the dialog box
        .Show

        'Store in fullpath variable
        fullpath = .SelectedItems.Item(1)

        'Actions in raw data sheet

    Set OpenWb = Workbooks.Open(fullpath)
    Dim wsData As Worksheet
    Set wsData = OpenWb.Worksheets("Data")

 'Find last cell number of row A from data sheet
    Dim last As Double
    Dim Cell As Range
    With OpenWb.Worksheets("Data")
    last = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
 Dim unusedcolumn As Integer
 unusedcolumn = Rows(1).SpecialCells(xlCellTypeBlanks)(1).Column

Dim irow As String
irow = Worksheets("Data").Cells(Rows(unusedcolumn).Count, 1).End(xlUp).Row
Cells(irow, unusedcolumn) = "Date"
Cells(irow + 1, unusedcolumn) = "11/15/2018"
OpenWb.Worksheets("Data").Range("irow +2").AutoFill Destination:=OpenWb.Worksheets("Data").Range("irow +2:irow" & last)


End With
End Sub