|First, without Column letters or Row numbers associated with your sample data I can't tell what data you have where, therefore I can't tell if the code will work with your data or not.|
Second, you have not correctly replicated the section of code that I pointed out.
Go back and follow your IF's and End If's. You have an End If out of place.
With the A's and B's entered into the correct column, and the End If in the right location, the code does exactly what it should do:
Copies lines where an A is entered into Column F to Sheet 2 and copies lines where a B is entered in Column F to Sheet 3.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.