Fala amigo Arruda!

Aqui vai uma ideia:

Sub AtivaCélulaInicial()
  Dim ac1 As Range: Set ac1 = ActiveCell
  '.... seu código
  ac1.Activate
  Set ac1 = Nothing
  'Ou
  Dim ac2 As String: ac2 = ActiveCell.Address
  '.... seu código
  Range(ac2).Activate
End Sub

Porém, como vc já sabe, o ideal é evitar usar ativações e seleções sempre que possível...

Teria como: Guardar a informação do endereço da célula ativa do inicio da sub, e resgatá-la no final para que eu a selecionasse?

Como eu faria isso?

Realmente está na cara, mas compreendo que, às vezes, temos um bloqueio de criatividade.

Basta guardar o endereço da célula em uma variável local ou global e depois pegar o endereço que ficou gravado na variável:

Sub Teste ( )

Dim EnderecoCelulaAtiva as String

EnderecoCelulaAtiva = ActiveCell.Address






Range(EnderecoCelulaAtiva).Select

End Sub

Durante a execução da rotina, a célula ativa vai mudando...

Só faça isso se for imprescindível, mas, na maioria das vezes não é, pois torna a execução mais lenta.

Se for imprescindível, é costume utilizar:

Application.ScreenUpdating = False


Application.ScreenUpdating = True

Para agilizar a execução.

Eu vou fazer a pergunta que nao quer calar:

Porque vc quer que o codigo terminie sempre na celula ativa de qdo inciou?

Pelo menos foi o que eu entendi o que vc deseja fazer.

Colega MPrudencio,na verdade eu nao preciso.
Foi a maneira que eu achei para exemplificar a duvida.

Mas,pelas respostas doa clegas acima ja entendi como funciona.

Abrç!