Копирование текста в Excel на другой лист с дописыванием

Private Sub worksheet_change(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lReply As Long
    If Target.Address <> "$A$1" Or IsEmpty(Target) Then Exit Sub
    If Target.Column = 1 Then iSheet = "лекарства": IRange = "лекарства"
    If WorksheetFunction.CountIf(Worksheets(iSheet).Range(IRange), Target) = 0 Then
        lReply = MsgBox("В списке нет лекарства  " & Target & ". Добавить?", vbYesNo + vbQuestion)
        If lReply = vbYes Then
            With Worksheets(iSheet)
                .Cells(.Range(IRange).Rows.Count + 1, 1) = Target
                'сортировка по возрастанию
                .Range(IRange).Sort Key1:=.Range(IRange), Order1:=xlAscending, Header:=xlNo
            End With
        End If
    End If
End Sub