- Codice: Seleziona tutto
Range("S:T" & UR).Select
- Codice: Seleziona tutto
Sub Macro2()
Sheets("Totale").Select
Range("A14:Z14").Select
Selection.Copy
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & UR).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("S" & UR).Select
Selection.Clear
End Sub
Grazie !