Sub MyRowDelete()

Dim lRows As Long
Dim lCnt As Long

Application.ScreenUpdating = False
lRows = Cells(1, 1).CurrentRegion.Rows.Count

For lCnt = lRows To 1 Step -1

'*** Note this will delete ODD numbered rows ***
'*** Change to If (lCnt Mod 2) = 0 to delete EVEN numbered rows ***
If (lCnt Mod 2) = 1 Then
ActiveSheet.Rows(lCnt).Delete
End If

Next lCnt

End Sub