Named Ranges Based on Adjacent Column

Hello - I've seen similar questions posted here and on other sites but I can't seem to get the answers to work for me. I have a worksheet with a list of values in column R, starting with R2. I need to create named ranges for groups of cells that share the same value on the next column over (column S). For example, cells R2-R12 contain individual values but cells S2-S12 all contain the same value, which is what I want to name the range.

Is there a way to do this using VBA? There is a lot of data here and will take days to manually create these named ranges.

Any help would be appreciated! Using Excel 2013

Example this list would be a named ranged called "DEPT103":

10, FLATS DEPT103
20, RUNNING DEPT103
30, WALKING DEPT103
40, TRAINING DEPT103
45, FLIP FLOPS DEPT103
50, SANDALS DEPT103
60, SNEAKERS DEPT103
70, MISC SPORTS DEPT103
80, BOOTS DEPT103
85, CLEATED DEPT103
90, OUTDOOR DEPT103