Como hacer que al pulsar un botón cambie una celda

Puedes hacerlo de las siguientes dos maneras:
sub respuesta1 ()
Const cl = "cl"
Const br = "br"
Const mx = "mx"
Const ar = "ar"
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
Select Case ActiveCell
Case Is = cl
ActiveCell = Sheets("hoja3").Range("b1")
End Select
ActiveCell.Offset(1, 0).Select
Loop
end sub
En esta tendrías que definir una lista de constantes para decirle a la macro que hacer en caso de que el valor de la celda sea igual al de las constantes.
Y tendrías que estar modificando el código cada vez que incluyeras alguna nueva constante o valor.
el siguiente es un poco mas sencillo de dar mantenimiento ya que en este actualizas directamente en las hojas de excel y no es necesario modificar el codigo
sub respuesta2 ()
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
                                         'buscarvv(a1,hoja1!G:H,2,0)
Selection.FormulaR1C1 = "=VLOOKUP(RC1,Hoja1!C7:C9,2,0)"
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
ActiveCell.Offset(1, -1).Select
Loop
end sub
En este caso tendrá que existir el valor que estas buscando para que no se valla o tronar en algún momento la macro, sacnado un código de error.
En ambos casos puedes dejar la hoja oculta o las celdas y el código funcionara correctamente.