VBA to paste data in next availble blank row within a range.

This is just a sheet that is used fro baseball drafting. In cells F4:M12 is data validation lists of all the kids who are 11 years old. The columns are the actual teams. So there are a total of 9 teams. In cells F13:M19 are data validation drop down boxes as well but these are of 12 year olds. So what I'm trying to accomplish is if I choose a player that is 12 years old (in cell J16) and they have a younger brother who is 11 the vlookup kicks in and will return the 11 year old brothers name in the next available blank cell (in this scenario in cell J9 since cells J4:J8 have a name in it already) in that same row. Attached is a sample file