Inserir linha em branco em duas condições

Question

Eu tenho uma planilha com um grande número de linhas. Existem duas linhas agrupadas (para cada cliente). Na coluna A, a primeira linha tem um número de conta. A segunda linha deve estar em branco.

A planilha tem muitos clientes listados onde não há segunda linha. Eu preciso inserir uma linha em branco para criar uma segunda linha para cada cliente que não tenha uma.

Aqui está o script VBA que eu montei, mas ele recebe um erro de sintaxe.

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

Semelhante ao comentário de Scott. Apenas uma pequena alteração com 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