Elenchi di convalida dei dati che iniziano in alto e ClearContents quando vengono modificati

Primo post, adoro quello che fate qui. Usando un po 'di potenza di Google ho scoperto che il codice VBA fa due cose che devo realizzare.

1. Ho 3 elenchi di convalida dei dati in una scheda e voglio che gli elenchi vengano impostati per impostazione predefinita all'inizio dell'elenco anziché alla fine; Ho trovato questo codice fantastico e FUNZIONA.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Aggiorna entro Extendoffice 20160725
Dim xFormula come stringa
In caso di errore GoTo Out:
xFormula = Obiettivo.Celle(1).Validazione.Formula1
If Left(xFormula, 1) = "=" Allora
Target.Cells(1) = Intervallo(Mid(xFormula, 1)).Cells(1).Valore
End If
Out:
End Sub

2. Quando cambio il primo elenco di convalida dei dati, voglio che le altre 2 celle vengano cancellate e diventino vuote, in questo caso B74 e B145. Ho trovato NUMEROSI siti web che vantano lo stesso codice o molto simile, ma nessuna singola variante che riesco a trovare (letteralmente pagine di link di google) funziona. Questa è la parte che non funziona per me e credo che potrebbe avere qualcosa a che fare con il codice sopra.

Private Sub Worksheet_Change (ByVal Target As Range)
Se Target.Address(0, 0) = "B3" Allora
Intervallo ("B74, B145"). Cancella contenuto
End If
End Sub

Grazie in anticipo!