Excel - Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Sub Macro1()

'

' Macro1 Macro

'

    Range("B1").Select

    Selection.Copy

    Application.CutCopyMode = False

    Range("B4:AE13").Select

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _

        False, Transpose:=False

    Application.WindowState = xlNormal

End Sub

Sub Macro1()

' Macro1 Macro

    Range("B1").Select

    Selection.Copy

    Range("B4:AE13").Select

    Selection.PasteSpecial Operation:=xlAdd

    Application.CutCopyMode = False

End Sub