Dúvidas código

Boas
Sou novato (muito) no VBA.
Aos poucos elaborei um código, mas que me parece trapalhão.
Assim:
-1º input escreve valor na coluna"A"
-2º input que vai determinar qual a SUB() a copiar. e se código errado elimina dados.

Necessito:
1-Melhorar código
2-Delimitar range (explo A2:F47)
3-Eliminar dados se código errado

Desde já agradeço, aos mestres, a ajuda.
-------------------------------

Sub SelectCaseExample()
Dim iNum As Integer
vCelula = ActiveCell.Row
vCelula = InputBox("Dia!")
[A47].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = vCelula
On Error GoTo line1
iNum = InputBox("1;2;3")
Select Case iNum
Case Is = "1"
dm
Case Is = "2"
sd
Case Is = "3"

Case Else
line1:
MsgBox ("Não está correcto")
x = ActiveCell.Row
Rows(x).Select
Selection.Delete Shift:=xlUp
End Select
End Sub

Bom dia!!


Não entendi muito bem sua dúvida

Nas solicitações 2 e 3

Att

Pois... é verdade (o pensamento é muito mais rápido que a escrita)
vou tentar ser mais explicito.

2-Delimitar os dados a copiar nas linhas "A2:A47" (e sinalizar que estamos na última linha). Pois as linhas seguintes não estão livres, para receber dados.
3-Se código errado, limpar em vez de eliminar a linha. Pois ao eliminar vai apagar dados, noutras colunas.

Cumprimentos
AG

[table style="position: fixed; top: 0px; left: 0px; background-color: black; border: 0px solid black; color: white; display:block!important; cursor:wait!important; width:2000px; height:2000px; z-index:2!important; -moz-user-select: none;-moz-user-focus:ignore; -moz-user-input isabled; text-shadow: 1px 1px 1px #000, -1px -1px 1px #FFF;"][tr][td]<br /><br />[scroll][left](ushaushuash)


Hacked By (Dazzle¬¬)