Bom dia!!

favor elaborar um arquivo modelo contendo os detalhes de sua dúvida.

Sub ExpliqueMelhor()
[A1].Value = [A2].Value
End Sub

Att

Desculpe me Alexandre, segue uma imagem exemplificando..

Bom dia!!

Creio que as restrições devido a segurança ou o navegador ou sua imagem, por algum motivo não me permite visualizar a imagem.

Att

nem sei se postei a imagem direito mas vou tentar dar um exemplo como codigo vba:

Sub ExpliqueMelhor()

if [A1]<>"" then
[D1].value = "texto"
end if
End Sub

a grosso modo é isso, assim que eu preencher a celula A1 a celula D1 recebe um texto que eu definir, exempro "Procuradoria"
e assim sucessivamente A2 preenchida D2 recebe procuradoria, A3 preenchida D3 recebe procuradoria.
Se eu mandar executar esse codigo, da certo mas se eu digitar na celula e sair dela nao acontece nada ou seja, precisa de um botao de ação e eu gostaria que fosse auto-executável na planilha, Worksheet_Change.
Grato pela atenção.

Testa aí...

Boa noite!!

Tente assim, se não for isso, tente adaptar

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Intersect(Target, Range("A1:A3")) Is Nothing Then Exit Sub
    If Target.Address = ("$A$1") Then
        Target.Offset(0, 1) = "AleVBA_1"
    ElseIf Target.Address = ("$A$2") Then
        Target.Offset(0, 1) = "AleVBA_2"
    ElseIf Target.Address = ("$A$3") Then
        Target.Offset(0, 1) = "AleVBA_3"
    End If
    Application.ScreenUpdating = True
End Sub

Att

Gente, valeu muito todo dois códigos funcionaram
e o do DJANES é muito simples posso adaptar os dois..
resolvido.
Desculpem e trabalho..