20 21/02/2020 16:52
Buon pomeriggio, Massimiliano;
potresti provare con: 

Option Explicit

Sub Pulsante_1()
Application.ScreenUpdating = False
Dim x As Byte

    For x = 4 To 7
        Cells(x, 2) = Cells(x, 3) + Cells(x, 2)
   Next x
        MsgBox ("Le quantità sono stete aggironate!")
Application.ScreenUpdating = True
End Sub



Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013