Need to sort Column I and leave B alone down sheet Macro

[zone709]

Hi need to sort rows for column I where ever it says bill in Column C. I need the titles in Column B not to disappear but also need to delete any rows in column I that dont have

555 10thave. I gave a before and after example thanks.

Example

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1			Type		Date		Num		Name		Due Date		Aging		Amount		Open Balance
2		Company, Inc.
3			Bill		12/31/2019		12345		555 10thave		1/30/2020		61		10.00		10.00
4			Bill		12/31/2019		12346		555 10thave		1/30/2020		61		15.00		15.00
5			Bill		1/31/2020		12347		555 10thave		3/1/2020		30		25.00		25.00
6			Bill		1/31/2020		12348		Drums		3/1/2020		30		31.67		31.67
7			Bill		1/31/2020		12349		Drums		3/1/2020		30		39.17		39.17
8			Bill		1/31/2020		12350		555 10thave		3/1/2020		30		46.67		46.67
9			Bill		2/29/2020		12351		Drums		3/30/2020		1		54.17		54.17
10			Bill		2/29/2020		12352		555 10thave		3/30/2020		1		61.67		61.67
11		Company, Inc.													283.33		283.33
12		Equipment Rental
13			Bill		2/20/2020		12546		555 10thave		3/21/2020		10		5,988.13		5,988.13
14			Bill		2/25/2020		12547		Drums		3/26/2020		5		276.36		276.36
15			Bill		3/3/2020		12548		Drums		4/2/2020				2,177.50		2,177.50
16			Bill		3/3/2020		12549		555 10thave		4/2/2020				1,306.50		1,306.50
17			Bill		3/26/2020		12550		555 10thave		4/25/2020				14,076.20		14,076.20
18			Bill		3/26/2020		12551		Drums		4/25/2020				7,283.07		7,283.07
19		Equipment Rental													31,107.76		31,107.76
Sheet1

Cell Formulas
Range	Formula
O11, Q11	O11	=ROUND(SUM(O2:O10),5)
O19, Q19	O19	=ROUND(SUM(O12:O18),5)

Results

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1			Type		Date		Num		Name		Due Date		Aging		Amount		Open Balance
2		Company, Inc.
3			Bill		12/31/2019		161848		555 10thave		1/30/2020		61		10.00		10.00
4			Bill		12/31/2019		161849		555 10thave		1/30/2020		61		15.00		15.00
5			Bill		1/31/2020		163936		555 10thave		3/1/2020		30		25.00		25.00
6			Bill		1/31/2020		163939		555 10thave		3/1/2020		30		46.67		46.67
7			Bill		2/29/2020		166041		555 10thave		3/30/2020		1		61.67		61.67
8		Company, Inc.													158.33		158.33
9		Equipment Rental
10			Bill		2/20/2020		1094005-0007		555 10thave		3/21/2020		10		5,988.13		5,988.13
11			Bill		3/3/2020		1096067-0008		555 10thave		4/2/2020				1,306.50		1,306.50
12			Bill		3/26/2020		1117838-0002		555 10thave		4/25/2020				14,076.20		14,076.20
13		Equipment Rental													21,370.83		21,370.83
Sheet1

Cell Formulas
Range	Formula
O8, Q8	O8	=ROUND(SUM(O2:O7),5)
O13, Q13	O13	=ROUND(SUM(O9:O12),5)

 

[zone709]

Hi any help with this for a macro. Need to just actually delete any rows that don't have 555 10thave in Column I. Without disturbing the sheet especially in Column B.

 

[Fluff]

How about

Sub Zone709()
   With ActiveSheet
      .Range("A1:I1").AutoFilter 9, "<>555 10thave", xlAnd, "<>"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[zone709]

Hi thanks for the reply. Works Great!

 

[Fluff]

You're welcome & thanks for the feedback