Автозаполнение до следующей строки

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

это предполагает, что данные в столбце C являются репрезентативными для строк, с которыми необходимо работать. Вы сказали, что это должно продолжаться до последней строки - 1, поскольку последняя строка содержит дату+время... ну, пока это не столбец C, содержащий дату и время, тогда все будет хорошо:

Dim myData As Range

'Set a range by figuring out the length of your data based on column C data:
Set myData = Range("C2", Range("C2").End(xlDown))

'create two blank variables that we'll use
'to store data later:
colAdata = ""
colBdata = ""

'Loop through each row in the 'myData' range:
For Each cell In myData

    'First, unmerge cells that are merged in columns A&B:
    If cell(1, -1).MergeCells = True Then cell(1, -1).UnMerge
    If cell(1, 0).MergeCells = True Then cell(1, 0).UnMerge

    'Check if column A has data, and if so, grab its value and
    'column B's value for use in the next iteration:
    If cell(1, -1).Value <> "" Then
        colAdata = cell(1, -1).Value
        colBdata = cell(1, 0).Value
    Else 'it's blank so enter the data from the row above:
        cell(1, -1).Value = colAdata
        cell(1, 0).Value = colBdata
    End If

Next

надеюсь, это поможет, позвольте мне знайте, как это происходит.