Esta macro é executada sempre que houver alteração na planilha. Após a alteração a macro checa se é a célula definida que foi modificada, então executa os comandos definidos.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
' Comandos
End If
End Sub
