I would like to build a module to meet the requirement
Read the nonce value in cell B7
Loop through 200 nonce values
Increment or decrement the nonce value by 1, 2, or 3.
Re-compute the Block Hash with the new nonce value
Check to see if the Block Hash has 4 leading zeros
If your Block Hash has 4 leading zeros,
Refrain from trying any more nonce values
Update an unused cell in the spreadsheet (cell H12 will do) with the words “Success as a Minor”

I tried to create 2 module which are assigned to increment and decrement button.
the code below is used for the increment:

Sub increment()

Dim i As Integer

Dim non As String

non = Range("B7")

If LEFT(non,4) = "0000"

    Range("H12") = "Sucess as a Minor"

Else

    For i = 1 to 200

       non = non + 1

    Next i
End Sub