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