Boa tarde!

Veja se este código atende:

Sub AplicarCodBaixa()
Dim UltLinha As Long
Dim i As Long

UltLinha = Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = 1 To UltLinha
If Cells(i, 1).Value = "Código Baixa:" Then
Cells(i - 1, 3).Value = Cells(i, 2).Value
End If
Next
End Sub

Abraço

@jvalq boa tarde meu amigo,

Esta perfeito, mas quando tenho mais de um lançamento referente ao mesmo codigo no caso varias linhas, ele so copia na ultima. 

Neste caso teria que digitar manualmente.

Segue imagem explicando.

Mas ja agradeço atenção

Bom dia!

Veja se, agora, atende:

Sub AplicarCodBaixa()
Dim UltLinha As Long
Dim i As Long
Dim CodBaixa As Long

UltLinha = Cells(Cells.Rows.Count, 1).End(xlUp).Row
i = UltLinha

Do While i > 2
If Cells(i, 1).Value = "Código Baixa:" Then
CodBaixa = Cells(i, 2).Value
i = i - 1
Do While Cells(i, 4).Value = "Pagar"
Cells(i, 3).Value = CodBaixa
i = i - 1
Loop
End If
i = i - 1
Loop
MsgBox "Fim de Execução", vbInformation
End Sub

Abraço

@jvalq Bom dia meu amigo.

quando nesta condicional; (Do While Cells(i, 4).Value = "Pagar") a referencia e "Receber" não avança. interrompe o preenchimento. 

Segue planilha pra dar uma olhada.

Abraço.

Segue nova versão do código:

Sub AplicarCodBaixa()
Dim UltLinha As Long
Dim i As Long
Dim CodBaixa As Long

UltLinha = Cells(Cells.Rows.Count, 1).End(xlUp).Row
i = UltLinha

Do While i > 2
If Cells(i, 1).Value = "Código Baixa:" Then
CodBaixa = Cells(i, 2).Value
i = i - 1
Do While Cells(i, 4).Value = "Pagar" Or Cells(i, 4).Value = "Receber"
Cells(i, 3).Value = CodBaixa
i = i - 1
Loop
End If
i = i - 1
Loop
MsgBox "Fim de Execução", vbInformation
End Sub

Abraço

@jvalq desculpa insistir, e que preciso muito msm. 

Ela executa nas primeira linha nas demais não mais. já limpei ela trabalhei a tarde toda nela pra localizar uma opção, sem sucesso. 

Ate marquei em amarelo. 

Escreva Código de Baixa: na A7.

Escreva o código na B7.

O código do vídeo abaixo já foi testado e funciona perfeitamente.

Se aparecer o erro Tipos Incompatíveis é porque você não escreveu o que eu disse nas células A7 e B7.

Este vídeo explica:

https://youtu.be/ggO-qMSLuFw

@anderson mesmo ao executar a macro existe muitas células que não são preenchidas, as primeira preenche normalmente mas as demais não. 

Mas eu vou colocar manual, e finalizar o tópico.

Muito obrigado em parte me atendeu.