Here is the code i have. I have tried something with the cutcopymode with no luck. I can copy a cell, but I can't paste it anywhere. The cell I am trying to paste in is "D13", but it won't paste. Help!!!! Sometimes the most simplest is hard to see

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Sheets("Casp Placements").Range("A3", "A138").Interior.ColorIndex =
Sheets("Casp Placements").Range("B3", "B138").Interior.ColorIndex = 4
Sheets("Casp Placements").Range("C3", "C138").Interior.ColorIndex = 3
Sheets("Casp Placements").Range("D3", "F138").Interior.ColorIndex =

End Sub