Sub suurendaSisu()
  Range("b2").Value = Range("b2").Value + 1
End Sub