Alan Beban,

I tried to use your script, but when trying to save it, I receive the error-message:
Missing ; before statement. (line 3, file "Code")

Code:
function deleteEvenRows()
{
Set rng = Sheets("A1:A229").[a1]
For i = 1000 to 2 step -2
rng(i).EntireRow.Delete
Next
}