Maybe double check that the link to 2016 DUP.xlsx is still working correctly and that your formula's are correct.
The code is pulling each athlete from Sheets("Data").Range("A2:A21") so you will need to replace each row in column A with the athlete's name that the formula is looking up in 2016 DUP.xlsx