Help with code for "division of work"

I do need a bit of help on this code. I am sorry if i do something wrong with showing you the code and so on. Its my first time here.  Private Sub Worksheet_Change(ByVal Target As Range)     Dim Ol...