Help on running two code auto when opening Excel workbook

Hello guys
i need some help about merging two or more code on vba
i used this code and it helps for only one code:

Private Sub Workbook_Open()
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Set InputRng = Worksheets("Incident").Range("I:I")
DeleteStr = "aaa"
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
End If
End If
Next
DeleteRng.EntireRow.Delete
End Sub

when i open workbook it works
but i have more codes (like i sent earlier) that should run when i open the workbook, but the program doesnt work.
i would be really thank you if you help me about it.
the other code im trying to merge is:

Sub DeleteRows()
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Set InputRng = Worksheets("Task").Range("I:I")
DeleteStr = "aaa"
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
End If
End If
Next
DeleteRng.EntireRow.Delete
End Sub

thank you very much!!!