Вставьте пустую строку в цвет после каждой даты

Question

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

Мои данные выглядят так:

Я вставил свой собственный код, он работает, но после запуска макроса я получаю несоответствие типов ошибок 13 во время выполнения.

Любая помощь будет высоко ценится

Answer 1

@ WayneP, попробуйте сделать что-то вроде этого:

Public Sub InsertBlankRow()

On Error GoTo erro

Dim active_row As Long
Dim last_row As Long

    Worksheets("Planilha1").Activate

looping:
    last_row = ActiveSheet.Range("A1048576").End(xlUp).Row

    For active_row = 3 To last_row

        If ActiveSheet.Range("A" & active_row).Value <> ActiveSheet.Range("A" & active_row - 1).Value Then

            If ActiveSheet.Range("A" & active_row).Value <> "" And ActiveSheet.Range("A" & active_row + 1).Value <> "" Then
                ActiveSheet.Rows(active_row & ":" & active_row).Select
                Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

                active_row = active_row + 1
                GoTo looping

            ElseIf ActiveSheet.Range("A" & active_row).Value = "" And ActiveSheet.Range("A" & active_row + 1).Value <> "" Then
                active_row = active_row + 1

            End If

        End If
    Next active_row

Exit Sub

erro: MsgBox Err.Number & ": " & Err.Description, vbCritical, "Error at InsertBlankRow()"

End Sub