bem, por algum motivo tbm não conseguir fazer rodar kkk

mas vc pode criar um botão de controle de formulário normal sem ser o activeX
tirar o Private da sub e adicionar no botão

deixando a macro que está na aba codigos assim:
Sub CommandButton1_Click()
estou com a cabeça meio ruim no momento mas acho que existem maneiras melhores de vc fazer oq vc quer
tipo usar tabelas indexadas onde a macro vai ler o nome no indice e procurar no indice da tabela de origem
claro que isso se tiver muitas tabelas com variância de conteúdo
se forem tabelas e conteudos unicos mais vale colocar tudo em sequencias iguais e usar um array para pegar em blocos e colar no outro

Boa noite, Schroeder

Faltou só qualificar os intervalos de onde estão vindo os valores:

Private Sub CommandButton2_Click()
  Dim i As Long
  For i = 14 To 17
    With Sheets("Códigos")
     Sheets(.Range("a" & i).Value).Range(.Range("b" & i).Value) = .Range("d" & i).Value
    End With
  Next i
End Sub

EdsonBR

eu tinha tentado isso mas por algum motivo não funciona
mas como falei estou com a cabeça meio ruim então nem tentei ir a frente

com vc funcionou?

com vc funcionou?

E aí, grande Ed!

Sim, amigo, funcionou aqui... Não esqueceu dos pontos antes do Range? (.Range)

esqueci não, e mesmo copiando o seu e colando não preenche os dados da aba
estranho
eu até pensei que como estou com um nó na cabeça por causa de uma rotina aqui não estava raciocinando bem

desisto,

aqui por algum motivo que estou sem animo de procurar o por que não funciona de maneira nenhuma
provavelmente por causa dos controles activeX, que pelo que me lembro no passado me acarretou varios problemas

Resolveu mesmo.

Obrigado a ambos pela colaboração.

Cumprimentos,