hesham63,

With your raw data in column A beginning in cell A1.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).


1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.


Option Explicit
Sub Delete333Rows()
' stanleydgromjr, 07/31/2011
' http://www.excelforum.com/excel-general/786463-delete-rows-containing-a-number.html
Dim LR As Long, a As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
For a = LR To 1 Step -1
  If Left(Cells(a, 1), 3) = "333" Then Rows(a).Delete
Next a
Application.ScreenUpdating = True
End Sub

Then run the Delete333Rows macro.