Selecionar células ocultas e apagá-las junto com as visíveis

Question

• Entre duas células visíveis contem células ocultas (verticalmente, linhas em cima de linhas), e em baixo da última célula visível tem outra células visível com conteúdo, o numero de ocultas varia, por isso, quero fazer um macro que selecionasse a primeira célula visível até a segunda célula visível, e as apagasse (mas sem apagar a última célula visível, que é a terceira)
  
  é tipo apertar shift + seta para baixo (fazendo isso ele seleciona todas as células ocultas também)
  
  alguém me diz as propriedades que devo usar? Obrigado!
  
  Resumindo:

Celula visivel
---- (linhas ocultas)
Célula visível
total:

selecionar a primeira celula até a terceira e apagar (incluindo as ocultas) com vba.

Answer 1

Sub teste()

If ThisWorkbook.Sheets("Planilha1").Range("A1").Rows.Hidden = True Then
MsgBox "Oculta"
End If

End Sub

---

Anderson Diniz

Answer 2

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

Answer 3

Wow, me ajudou demaiss, obrigado!!!