No entiendo del todo que quieres hacer pero creo que quieres que se haga algo cuando el usuario modifique la celda A1. Por macros hay que poner un evento change en la hoja.
Si por ejemplo es la hoja1 en el editor de VisualBasic haz doble clic en la izquierda en el proyecto en la Hoja1. Se abre una ventana y en ella debes escribir la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
If [A1].Value = 1 Then
'instrucciones
End If
End If
End Sub
Si hay instrucciones para otros valores de A1 se especifican por ejemplo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
If [A1].Value = 1 Then
' instrucciones 1
ElseIf [A1].Value = 2 then
' instrucciones 2
ElseIf [A1].Value = 3 then
' instrucciones 3
.....
Else
' instrucciones si no se da ninguno de los anteriores
End If
End If
End Sub
No se que quieres hacer en las celdas B2 y C3 pero seguramente las instrucciones serían algo de este tipo o más complicadas.
[B2].Value =77
[C3].Value = 102
Y eso es todo.