Fill Color In Range Between Specified Value

Trying to find a way to fill in a color based on a specified value, up to the last entry.

ie. Within a range ("Range1")T1:T9, anywhere the value is "R" , fill the color red within column P (offset -5 columns to the left) up to the last entry.

..this is something I would like to initiate via button assignment using a VBA script.

eg:

Column..P,.....T

1..................B
2........Red.....R
3........Red.....T
4........Red.....R
5........Red.....V
6........Red.....M
7........Red.....R
8..................X
9..................X