Delete rows in scattered selection

Hello,

I'd like to delete all rows of a scattered selection. I tried this code

    For i = Selection.Rows.Count To 1 Step -1
            Selection.Rows(i).EntireRow.Delete
    Next i

but it only works right on a continuous selection. For example when I create a list of numbers (1 up to 50) and I select random cells at row 5-10 and 20-25 and at row 27 only the first group (5-10) is removed instead of ALL rows in the selection.

Any suggestions?

Kind regards,
Erik