Make this code column specific?

Try to change so your code:

Sheets("Teams left").Range("A" & j).ClearContents

or

Sheets("Teams left").Cells(j, "A").ClearContents

Regards,
Antonio