An alternative without a loop, with data beginning in row 2. Note, the criterion "Outstanding" is hard coded. If that is the only value you will ever search for, then fine. If not, we can modify this to have your criterion entered in another cell and reference that cell range in the code:
ActiveSheet.AutoFilterMode = False
Dim FilterRange As Range, DataRange As Range
Set FilterRange = Range(("A1"), Cells(Rows.Count, 2).End(xlUp))
Set DataRange = Range(("A2"), Cells(Rows.Count, 1).End(xlUp))
FilterRange.AutoFilter Field:=2, Criteria1:="Outstanding"
DataRange.SpecialCells(xlCellTypeVisible).Value = "Outstanding"
ActiveSheet.AutoFilterMode = False