ok!
here I am again!
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_BeforeDoubleClick(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range, Cancel <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>)
<SPAN style="color:#00007F">Static</SPAN> LastCell <SPAN style="color:#00007F">As</SPAN> CellX
<SPAN style="color:#00007F">Set</SPAN> isect = Application.Intersect(Target, Range("b:B"))
<SPAN style="color:#00007F">If</SPAN> isect <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">If</SPAN> LastCell.Target <> "" <SPAN style="color:#00007F">Then</SPAN>
Range(LastCell.Target).Interior.ColorIndex = LastCell.ColorIndex
Range(LastCell.Target).Offset(0, 1).Interior.ColorIndex = LastCell.ColorIndex
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
LastCell.Target = Target.Address
LastCell.ColorIndex = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 3
Target.Offset(0, 1).Interior.ColorIndex = 3
<SPAN style="color:#00007F">Set</SPAN> MA = Target.Offset(0, 2).MergeArea
<SPAN style="color:#00007F">If</SPAN> MA.Address = Target.Offset(0, 2).Address <SPAN style="color:#00007F">Then</SPAN>
Target.Offset(0, 2).Value = Target.Offset(0, 1).Value
<SPAN style="color:#00007F">Else</SPAN>
MA.Cells(1, 1).Value = Target.Offset(0, 1).Value
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
Cancel = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>