Keep format after paste from other worksheets - conditional format or EnableControl solution doesn't work
 

Hey fellows

I have struggled a while now and need your help.

I have two columns:
The left has several ranges (A6:A22;A24:A36 ...) with cells only with
value "K" or an "I"
It can only accept "K" or "I"

The right (B6:B22;B24:B36 ...) has a text as you like
It has to accept copy and paste from other worksheets and within it
self.

Solution/Problem ONE
- The format sweep away with paste action. I have tried with EnableControl
subs but paste doesn't work - maybe it's my one of my subs:
- "worksheet_activate"
- "ActiveSheet.Unprotect" ...causing it, what do you think?

Solution/Problem TWO
Conditional formatting can't solve it. It has to be relative references (?),
from Column B:B to column A:A because I don't want to use a For ... Step 1
.... Next sub because that is not nice to work with, if I combine it with a
Worksheet_Change sub.... stepping all the time...

Could you please help me...?
Thanks!!!