Вставить пустую строку в двух условиях

Question

У меня есть электронная таблица с большим количеством строк. Есть две строки, сгруппированные вместе (для каждого клиента). В столбце A в первой строке указан номер счета. Второй ряд должен быть пустым.

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

Вот скрипт VBA, который я собрал вместе, но он получает синтаксическую ошибку.

Sub Macro1()
'
' Macro1 Macro
'

For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Cells(myrow, 1) <> "" and Cells(myrow+1, 1) <> ""
Then
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Answer 1

Похоже на комментарий Скотта. Только небольшое изменение с Next myrow

Sub Macro1()
    For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        If Cells(myrow, 1) <> "" And Cells(myrow + 1, 1) <> "" Then
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next myrow
End Sub