Ďakujem za rýchlu odpoveď, ale je tu nejaký problém. Vypíše to:
Compile error: Only comments may appear after End Sub, End Function or End Property
a ostane to na Private Sub Worksheet_SelectionChange(ByVal Target As Range).
Neviem či je na začiatku správne vložená deklarácia Dim CopyRange As Range.