Sub teste2()
Dim linha As Long
linha = 1
While ThisWorkbook.Sheets("Planilha1").Range("A" & linha) <> ""
If ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Rows.Hidden = False Then
ThisWorkbook.Sheets("Planilha1").Range("A" & linha).EntireRow.delele
ThisWorkbook.Sheets("Planilha1").Range("A" & linha + 1).EntireRow.delele
Exit Sub
End If
linha = linha + 1
Wend
End Sub
Anderson Diniz