buongiorno
lo scopo è aliminare alcune righe ma sembra non digerire questa riga:
Rows("i:i").Select
errore 1004
Err.Description: Errore definito dall'applicazione o dall'oggetto
codice:
Do While (i < 5000)
Rows("i:i").Select
Selection.Delete Shift:=xlUp
i = i + 1
Loop
aiuto
grazie 1000