
Sub Prova()
Sheets("Tuo foglio").Select
rig2 = Cells(65536, 17).End(xlUp).Row
rig = Cells(1, 17).End(xlDown).Row
Range(Cells(rig2, 17), Cells(rig + 2, 17)).Cut
Cells(rig + 1, 17).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub |
