¿Cómo copiar una celda activa de una columna en otra celda.?

Hola mí
pregunta es la siguiente: Tengo una base de datos en Excel, me gustaría que al hacer click en una celda, obtenida de una columna determinada. Muestre el valor de la celda en otra celda. Por ejemplo. Sí tengo un rango de A16 a A657, y hago click en una celda dentro de este rango, el valor de la celda activa se muestre en la celda B3. Intente con esto. Pero al hacer click fuera del rango sigue copiando los valores

Range("B3") = ActiveCell.Offset(0,0)

Soy muy nuevo en esto necesito ayuda por favor.

Mario