Yup. Filtering would be so much easier. But if you wanted it in a code:

Sub HideFinishedColumns()

Application.ScreenUpdating = False

a = Range("H" & Rows.Count).End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 8) = "F" Then
Rows(b).Select
Selection.EntireRow.Hidden = True
End If
Next b

Application.ScreenUpdating = True

End Sub

Sub ShowAllColumns()

Application.ScreenUpdating = False
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
Application.ScreenUpdating = True

End Sub