Excel Macro para Selecionar todas as Linhas abaixo da linha 2

[crownics]

Caros, boa tarde!

 

Preciso de uma ajuda. Estou tentando fazer um macro que seleciona todas as linhas abaixo da linha A2, e apagar todas, porém não to conseguindo. 

 

Tentei usar o seguinte código:

Citação

Sub Delete

 

Sheets("teste").Select

Range("A3").CurrentRegion.Select

Selection.Delete

 

End Sub

 

Este código nao funcionou porque apagava toda a planilha, e preciso que mantenha a linha 1 e linha 2. 

 

Poderiam me ajudar?

[Visitante]

 

Sub LimpaCélulas()
 If [A3] <> "" Then Range("A3:A" & Cells(Rows.Count, 1).End(3).Row) = ""
End Sub

 

[crownics]

5 minutos atrás, osvaldomp disse:

Sub LimpaCélulas() If [A3] <> "" Then Range("A3:A" & Cells(Rows.Count, 1).End(3).Row) = "" End Sub

@osvaldompFuncionou, mas esta apagando somente os dados da coluna A, preciso que apague as linhas inteiras a partir da linha 3

[Visitante]

 

If [A3] <> "" Then Range("A3:I" & Cells(Rows.Count, 1).End(3).Row) = ""