Sub Aumentar()
   Range("b1").Value = Range("b1").Value + 1
End Sub

Sub Disminuir()
   Range("b1").Value = Range("b1").Value - 1
End Sub