How to create a button or macro for increase the value of multiple cells?

You could try macros like this:

Option Explicit

Sub IncrVal()
Dim cell As Range

For Each cell In Range("B1:B23")
cell.Value = cell.Value + 1
Next
End Sub

Sub DecrVal()
Dim cell As Range

For Each cell In Range("B1:B23")
cell.Value = cell.Value - 1
Next
End Sub

Alf

It works! Thank you so much!!