Sub Rettangoloarrotondato3_Click() Sheets("Previsione").Select Range("G11:Z12").Select Selection.Copy Sheets("Convergenze").Select Range("B65000").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Sub Cancella() [A2:u103].ClearContents [A1].Select End Sub