Копирование строки из таблицы в другую другую таблицу и отметка даты и времени копирования строки

Question

Я пытаюсь сделать следующее:

Лист1 - Таблица1 (ColumnA, ColumnB, ColumnC, ColumnD)

Лист2 - Таблица2 (ColumnA, ColumnC, DateCopy)

Если возможно, я хочу скопировать строку из таблицы 1 в таблицу 2, где ColumnD не равен нулю.

и отметка даты и времени в DateCopy.

Один дополнительный вопрос, если это возможно: при копировании строки из таблицы 1 в таблицу 2 возможно ли не копировать ячейку в столбце B или необходимо скопировать всю строку?

Это мой код:

Sub copyComments()

    Dim tbl As ListObject
    Dim rowcount As Integer
    Dim i As Integer
    Dim oLastRow As ListRow
    Dim srcRow As Range


    Set tbl = Worksheets("Sheet1").ListObjects("Table1")
    rowcount = tbl.ListRows.Count


    For i = 3 To rowcount

    If Cells(i, 3).Value <> vbNullString Then

    Set srcRow = tbl.ListRows(i - 2).Range

    Set oLastRow = Worksheets("Sheet2").ListObjects("Table2").ListRows.Add

    srcRow.Copy

    oLastRow.Range.PasteSpecial xlPasteAll

    End If

    Next
End Sub