Loop to add string to bottom of a variable column

sActually I have one more question:

So that worked perfectly when all the data was on one worksheet, but how could I check the J2 value on the active worksheet and place the "x" in a worksheet called Lists ?