...
è una roba che fa pietà e inoltre scommetto che ha un fottio di righe inutili...
devo ancora testarla bene...perché non ho avuto tempo ma mi sembra mi lasci il foglio come voglio io..
Avevo spostato colonne però...
Sub Inserisci_Righe()
'
Dim rig As Long
rig = ActiveCell.Row
Range(Cells(rig, 1), Cells(rig, 8)).Copy
Range(Cells(rig + 1, 1), Cells(rig + 1, 8)).Insert Shift:=xlDown
Range(Cells(rig + 1, 1), Cells(rig + 1, 8)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(Cells(rig + 1, 1), Cells(rig + 1, 8)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I2").Select
Selection.Copy
Range("I5:I536").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.ScrollRow = 518
ActiveWindow.ScrollRow = 507
ActiveWindow.ScrollRow = 503
ActiveWindow.ScrollRow = 492
ActiveWindow.ScrollRow = 474
ActiveWindow.ScrollRow = 459
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 423
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 2
Range("B2").Select
End Sub
[Modificato da sputnik_r 15/05/2018 16:28]