
''ALL'INIZIO Application.ScreenUpdating = FALSE ''ALLA FINE Application.ScreenUpdating = TRUE |
Range("E2").Select
i = 1
Do Until Cells(i, 5).Value = 0
i = i + 1
Loop
interv = "A" & i & ":F" & i + 200
Range(interv).Select
Selection.ClearContents |
Range("A1").Select
i = 11
Do Until Cells(i, 53) <> ""
i = i + 1
Loop |
