Sub paneSisu()
  Range("b2").Value = 7
  Range("c3:d5").Value = 12
End Sub