ruslaw, попробуйте так:
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const strName As String = "Лист1" 'Имя листа, на который будет выполняться копирование
If IsEmpty(Target.Cells(1, 1)) Or Target.Column < 3 Then Exit Sub
Target.Cells(1, 1).Interior.ColorIndex = 6 'выделяет ячейки желтым цветом, если не нужно - удалить строку
If IsEmpty(ThisWorkbook.Worksheets.Item(strName).Cells(60000, 2).End(xlUp)) Then
ThisWorkbook.Worksheets.Item(strName).Cells(60000, 2).End(xlUp).Value = Target.Cells(1, 1).Value
Else
ThisWorkbook.Worksheets.Item(strName).Cells(60000, 2).End(xlUp).Offset(1, 0).Value = Target.Cells(1, 1).Value
End If
End Sub