Oi amigos.
Recorro a vocês mais uma vez em razão de ter esgotado minhas pesquisas.

Eu preciso nomear um intervalo de dados. Encontrei o seguinte código:

Sub NomeDaRegiaoAtual()
Dim Rng As Range
Dim MeuNome As String
Set Rng = ActiveCell..CurrentRegion
MeuNome = InputBox("A região atual é: " & Rng.Address _
& Chr(13) & "Entrar com o _& Nome por favor: ", "Nomear", "MeuNome")
Names.Add Name:=MeuNome, RefersTo:="=" _
& Rng.Address
End Sub

Só que este código usa o CURRENTREGION. E é aí que me quebra.
Pois eu preciso nomear um intevalo que se inicia na E18 e vai até a última célula preenchida desta coluna. Isso porque tem outras coisas embaixo desta lista. E além disso, a última célula preenchida vai mudar. Ou seja, a quantidade de dados desse INTERVALO NOMEADO vai aumentar.
Então gostaria de saber como eu poderia fazer isso acontecer....
Anexo a plan.
Obrigado desde já!