Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Endrow As Single
Dim myTarget As Range
Endrow = Cells(65525, 8).End(xlUp).Row
Application.EnableEvents = False
Set myTarget = Target
myTarget.Copy
Cells(Endrow + 1, 8).Select
ActiveSheet.Paste
Application.EnableEvents = True
End Sub