APAGAR LINHA MAS NAO NA TOTALIDADE

PAULODINIS 25/11/2013 15:12:00
#431438

Boa tarde
Tenho o seguinte codigo:

Private Sub apagar_Click()
Range([Ô]a2[Ô]).Select


While ActiveCell <> [Ô][Ô]
If ActiveCell = txtapagar.Text Then

ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Activate
Wend

End Sub
Agora em vez de me apagar toda a linha onde esta o activecell quero que me apage a linha mas só da coluna A até á D ou seja, quando digito por exemplo o numero 6 na txtapagar ele vai correr a coluna A até o numero 6 e apaga-me a linha da coluna A até a D.

Na coluna A tenho um codigo de numeração sequencial
O que me falta no codigo?

Será que me pode ajudar, obrigado