Boa tarde,

não sou muito bom VBA, preciso mudar de endereço de célula.

Como devo proceder

Option Explicit

Sub mais()
If [N1] + 20 < Application.WorksheetFunction.Max(Range("A:A")) Then
[N1] = [N1] + 20
End If
End Sub

Sub menos()
If [N1] > 1 Then
[N1] = [N1] - 20)
End If
End Sub

segue a planilha em anexo.

Saudações