Listas de validação de dados que começam em TOP e ClearContents quando alteradas

Primeiro post, eu amo o que todos vocês fazem aqui. Usando algum poder sério do Google, descobri o código VBA para fazer duas coisas que preciso realizar.

1. Eu tenho 3 listas de validação de dados em uma guia e quero que as listas sejam padronizadas para o TOPO da lista em vez do fundo; Eu encontrei este código incrível e FUNCIONA.

Sub Worksheet_SelectionChange particular (destino ByVal como intervalo)
'Atualizar por Extendoffice 20160725
Dim xFórmula como String
Em erro GoTo Out:
xFormula = Destino.Células(1).Validação.Formula1
If Left(xFormula, 1) = "=" Então
Alvo.Células(1) = Intervalo(Médio(xFormula, 1)).Células(1).Valor
Se acabar
Fora:
End Sub

2. Quando altero a primeira lista de validação de dados, quero que as outras 2 células sejam apagadas e fiquem em branco, neste caso B74 e B145. Encontrei NUMEROS sites que possuem o mesmo código ou código muito semelhante, mas nenhuma variação que eu possa encontrar (literalmente páginas de links do google) funciona. Esta é a parte que não está funcionando para mim, e acredito que possa ter algo a ver com o código acima.

Private Sub Worksheet_Change (ByVal Target As Range)
Se Target.Address(0, 0) = "B3" Então
Range("B74,B145").LimparConteúdo
Se acabar
End Sub

Obrigado com antecedência!