Boa tarde pessoal

Tenho um conjunto de células (A1:A10) onde alguns valores nelas se repetem, esses valores são códigos numéricos, porém aparecem nesse conjunto por fórmulas

Gostaria de manter essas fórmulas nesse conjunto

Para isso preciso enviar a informação para outro conjunto de mesmo tamanho (exemplo: C1:C10) e exibir o nome referente aquele código

Exemplo:

A1 que tem a fórmula =xyz exibindo o valor 1

1 é o código do João

Então em C1 exibe João

A2, A5 e A7 que tem a fórmula =xyz todas exibem o valor 18

18 é o código do José

Então em C2, C5 e C7 exibe José

E assim por diante, lembrando que essas fórmulas vão alterando os valores das células de tempos em tempos e automaticamente deverão alterar os nomes também

Tentei essa linha de raciocínio mas não consigo finalizar:

Sub teste()
Dim Cell As Range
	For Each Cell In Range("A1:A10")
		If Not Cell.HasFormula Then
			If 18(Cell.Value) Then
				Cell.Value = "José"
			End If
		End If
	Next Cell
End Sub

Se alguém puder me ajudar

Obrigado