Listas de validación de datos que comienzan en TOP y ClearContents cuando se cambian

Primer post, me encanta lo que hacéis aquí. Usando un poder serio de Google, descubrí el código VBA para hacer dos cosas que necesito lograr.

1. Tengo 3 listas de validación de datos en una pestaña, y quiero que las listas estén predeterminadas en la PARTE SUPERIOR de la lista en lugar de en la parte inferior; Encontré este increíble código y FUNCIONA.

Sub hoja de trabajo privada_Cambio de selección (rango de destino ByVal)
'Actualizar por Extendoffice 20160725
Dim xFormula como cadena
En caso de error GoTo Out:
xFórmula = Destino.Celdas(1).Validación.Fórmula1
Si Izquierda(xFórmula, 1) = "=" Entonces
Target.Cells(1) = Range(Mid(xFórmula, 1)).Cells(1).Valor
Si terminar
Salida:
End Sub

2. Cuando cambio la primera lista de validación de datos, quiero que las otras 2 celdas se borren y queden en blanco, en este caso B74 y B145. Encontré NUMEROSOS sitios web que cuentan con el mismo código o uno muy similar, pero ninguna variación que pueda encontrar (literalmente, páginas de enlaces de Google) funciona. Esta es la parte que no funciona para mí, y creo que podría tener algo que ver con el código anterior.

Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Si Target.Address(0, 0) = "B3" Entonces
Rango ("B74, B145"). ClearContents
Si terminar
End Sub

Gracias de antemano!