I want to be able to select cells B2:B9 (or any cells in order in a
coloumn), and use a macro to delete rows 2 - 9 starting with row 9 and
going to row 2 using a loop. I have a routine written for deleting 1
row, if 1 cell is selected. How would I use that routine to delete
multiple rows?

For i = 0 To tis - 13
If Range("B" & 11 + i).Value = activecell.Value Then
Range("A" & 11 + i & ":H" & 11 + i).Delete Shift:=xlUp
activecell.Select
Exit Sub
End If
Next i