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

Question

У меня есть рабочий процесс Excel VBA для ввода данных в таблицу из листа ввода данных (inputwks).Это будет выглядеть следующим образом:

1. Нажмите кнопку, добавьте новую строку в таблицу.
2. Ввод отметки времени в конкретное имя заголовка столбца «Дата / Время» столбца.(столбец M в приведенном ниже коде)
3. Вводит входные данные из inputwks в столбец с именем заголовка таблицы «запись данных».(показано как столбец 3 в приведенном ниже коде)

Я не хочу использовать буквы или цифры столбца, потому что могу изменить порядок (например, дата / время могут выглядеть лучше для пользователя в столбце Aвместо M.).

Как изменить приведенный ниже код, чтобы макрос выполнял поиск столбцов «дата / время» вместо перехода к столбцу M и для «записи данных»?

Спасибо за предоставленную помощь.

Sub UpdateLogWorksheet()

    'Dim historyWks As Worksheet
    Dim ccarWks As Worksheet
    Dim inputWks As Worksheet

    Dim nextRow As Long
    Dim oCol As Long
    '======================Named range setup=========================
    Dim myCopy As Range
    Dim myTest As Range
    Dim lRsp As Long
    '=====================worksheet name setup=======================
    Set inputWks = Worksheets("Input (Modded)")     
    Set ccarWks = Worksheets("CCAR - VB Template Ver2.0")     
    oCol = 3 
      '===================Copy/paste data commands==================

    Set myCopy = inputWks.Range("inputvalue") 
    With ccarWks 
        nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    End With

    With ccarWks 
       With .Cells(nextRow, "M") 'was "A"
           .Value = Now
           .NumberFormat = "dd/mm/yyyy hh:mm:ss" 'enter date and time stamp in record
       End With

       myCopy.Copy
       .Cells(nextRow, 3).PasteSpecial Paste:=xlPasteValues, Transpose:=True 
       Application.CutCopyMode = False

   End With

End Sub