É necessário detalhar o que não está dando certo, pois só você conhece o projeto. Além disso, dizer qual é a macro que não está funcionando corretamente.

Bom dia
quando preencho a célula ("D8" da planilha venda)deveria transferir os dados para a planilha base e montar o bando de acordo com a sequencia
espero que consiga entender
Grato pela atenção

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cod As Range
  'Me.Protect "125812", UserInterFaceOnly:=True
  If Target.Address = "$C$3" Then
   Set cod = Sheets("config").[A:A].Find(Target.Value, lookat:=xlWhole)
    If cod Is Nothing Then MsgBox "Código não encontrado": Exit Sub
     With Me
      .[C4] = cod.Offset(, 1).Value: .[c5] = cod.Offset(, 2).Value: .[C6] = cod.Offset(, 3).Value
      .[K3] = cod.Offset(, 6).Value: .[K4] = cod.Offset(, 4).Value: .[K5] = cod.Offset(, 5).Value
     End With
  ElseIf Target.Address = "$D$8" Then
   With Sheets("Base").Cells(Rows.Count, 1).End(3)(2)
   'qualquer problema, é só alterar os endereços
   'o valor de c2 vai para coluna a
    .Value = [C2]
    'o valor de d2 vai para a coluna b
    .Offset(, 1).Value = [d2]
    'o valor de c4 vai para a coluna c
    .Offset(, 2).Value = [C4]
    'o valor de c5 vai para a coluna d
    .Offset(, 3).Value = [c5]
    'o valor de b8 vai para a coluna e
    .Offset(, 4).Value = [b8]
    'o valor de c8 vai para a coluna f
    .Offset(, 5).Value = [c8]
    'o valor de d8 vai para a coluna g
    .Offset(, 6).Value = [D8]
    'o valor de e8 vai para a coluna h
    .Offset(, 7).Value = [E8]
    'o valor de f8 vai para a coluna i
    .Offset(, 8).Value = [F8]
    'o valor de g8 vai para a coluna j
    .Offset(, 9).Value = [G8]
    'o valor de h8 vai para a coluna k
    .Offset(, 10).Value = [h8]
    'o valor de i8 vai para a coluna L
    .Offset(, 11).Value = [i8]
   End With
 Range("b8:d8").ClearContents
End If
End Sub

Muito obrigado. adaptei funcionou perfeitamente, agradeço muito a atenção.
Gostaria apenas de mais uma orientação:
dentro da mesma planilha posso usar o mesmo objeto adaptado apenas para lancamento sem busca posso ?

Sim

Private Sub Worksheet_Change(ByVal Target As Range)

   With Sheets("Base").Cells(Rows.Count, 1).End(3)(2)
   'qualquer problema, é só alterar os endereços
   'o valor de c2 vai para coluna a
    .Value = [C2]
    'o valor de d2 vai para a coluna b
    .Offset(, 1).Value = [d2]
    'o valor de c4 vai para a coluna c
    .Offset(, 2).Value = [C4]
    'o valor de c5 vai para a coluna d
    .Offset(, 3).Value = [c5]
    'o valor de b8 vai para a coluna e
    .Offset(, 4).Value = [b8]
    'o valor de c8 vai para a coluna f
    .Offset(, 5).Value = [c8]
    'o valor de d8 vai para a coluna g
    .Offset(, 6).Value = [D8]
    'o valor de e8 vai para a coluna h
    .Offset(, 7).Value = [E8]
    'o valor de f8 vai para a coluna i
    .Offset(, 8).Value = [F8]
    'o valor de g8 vai para a coluna j
    .Offset(, 9).Value = [G8]
    'o valor de h8 vai para a coluna k
    .Offset(, 10).Value = [h8]
    'o valor de i8 vai para a coluna L
    .Offset(, 11).Value = [i8]
   End With
Range("b8:d8").ClearContents

End Sub

Boa Tarde PROFESSOR!
Desculpe a demora em responder
o primeiro exemplo funcionou perfeitamente
quando tentei adaptar a um novo projeto nao roda.

==============================================
quando mudo a celula de (c3 para D3 ou outra nao funciona
=============================================
Segundo exemplos simplesmente nao funciona