CITAZIONE (Ernesto Liberati @ 10/1/2020, 21:25)
Ho corretto l'errore nella macro, rimetto il foglio corretto.
Per chi è capace metto il codice della macro:
Sub BOLLA_2()
'
' BOLLA_2 Macro
'
'
Sheets("BOLLA").Select
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("PRONO 10").Select
ActiveCell.Offset(-150, 0).Range("A1").Select
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("PRONO 10").Select
Application.CutCopyMode = False
Range("G32").Select
Selection.Copy
Sheets("BOLLA").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PRONO 10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("PRONO 5").Select
Range("G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("PRONO 10").Select
Range("G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("PRONO 5").Select
Range("G22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("PRONO 10").Select
Range("G34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BOLLA").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PRONO 10").Select
Application.CutCopyMode = False
Sheets("TIPS").Select
End Sub