VBA para inserir um retorno de carro após o texto existente e colar mais texto

Question

Estou adicionando "Measure_1" a determinadas células. Isso exige que eu clique duas vezes na célula, vá até o final do texto existente, insira um retorno de carro (alt + ent) e cole em MEASURE_1. Portanto, estou tentando automatizar isso.

Infelizmente, meu código VBA abaixo está sobrescrevendo o texto existente com o exemplo que usei ao gravar minha macro.

activecell.FormulaR1C1 = "D4)" & Chr(10) & "MEASURE_1"

Como faço para dizer:

activecell.FormulaR1C1 = **ANY TEXT WITHOUT CHANGING** & Chr(10) & "MEASURE_1"

Muito obrigado. Michael.

    

Answer 1

Experimente activecell.FormulaR1C1 = activecell.FormulaR1C1 & Chr(10) & "MEASURE_1"