I created a macro to basically clean up information run from another program. The Macro is supposed to find the information I don't want and delete the row. However it is deleting everything instead of the specific information. Please help.


Sub testingdelete()
'
' testingdelete Macro
'
' Keyboard Shortcut: Ctrl+Shift+D

Range("B:B").Select
ActiveCell.FormulaR1C1 = "Select Clerk's AR Menu Option: ^AP"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" 1 Account Profile [RCDP ACCOUNT PROFILE] (AP)"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" 2 Workload Assignment Print [IBJD FOLLOW-UP ASSIGN PRINT] (AP)"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
"Type '^' to stop, or choose a number from 1 to 2 :1 AP Account Profile"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Select ACCOUNT or BILL NUMBER:"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Searching for a PATIENT, (pointed-to by DEBTOR)"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" Enrollment Priority: Category: IN PROCESS End Date: "
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" *** Patient Requires a Means Test ***"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " *** Please update ***"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Enter <RETURN> to continue."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "MEANS TEST REQUIRED"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" DO NOT TREAT OR SCHEDULE - MT REQUIRED! CALL X"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " ...OK? Yes// (Yes)"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" Enter ?? for more actions "
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
"BP Bill Profile NA Select New Account EA Exit Action"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "BT Bill Transactions SS Select Status"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Select Action: Quit// QUIT "
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " DP Deposit Processing"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " RP Receipt Processing"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " LP Link Payment To Account"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " AP Account Profile"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " BP Bill Profile"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " BT Bill Transactions"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " TP Transaction Profile"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " LR List Of Receipts Report"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " EX Extended Check/Trace/Credit Card Search"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" PD Patient Payment/Refund Transaction History Inquiry"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " RH Release Holds on AR"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " TPJI Third Party Joint Inquiry"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Print Bill"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " SU Summary SF215 Report"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Select Agent Cashier Menu Option: "
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Audit/Set up a New Accounts Receivable ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " New Bill Forms Print ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Profile of Accounts Receivable"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Update Accounts Receivable ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Adjustment to Accounts Receivable ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Report Menu for Accounts Receivable ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Follow-up Letter Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Establish/Edit Old Bills ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Transaction Profile"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Account Management ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Agent Cashier Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " EDI Lockbox ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " FMS Utilities Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Refund Review and Approve"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Select Clerk's AR Menu Option: "
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = "Financial query queued to be sent to HEC..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Administrative Cost Adjustment"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = _
" Claims Tracking Menu (Combined Functions) ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Clerk's AR Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Consult Service Tracking"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " CPAC Clinical Options ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " CPAC Facility Administrative Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Diagnostic Measures Reports ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Drug File Inquiry"
Range("B:B").Select
ActiveCell.FormulaR1C1 = " ECME ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " EDI Menu For Electronic Bills ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Enter Lesser DMC Withholding Amount"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Health Summary Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Insurance Payment Trend Report"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " MRA Management Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " On Hold Menu ..."
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Patient Billing Inquiry"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Patient Insurance Menu ..."
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Patient Profile MAS"
Range("B:B").Select
ActiveCell.FormulaR1C1 = " PCE Encounter Viewer"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Query Medication Copay Billing Events"
Selection.EntireRow.Delete
Range("B:B").Select
ActiveCell.FormulaR1C1 = " Review/Refer TP Bills to RC"
Selection.EntireRow.Delete

End Sub