Private Sub Worksheet_Change(ByVal Target As Range)
  Dim wb As Workbook
  If Target.Row = 1 And Target.Column = 2 Then
    Set wb = ActiveWorkbook
    wb.Sheets("Лист1").Range("a1:a1") = wb.Sheets("Лист2").Range("a1:a1")
  End If
End Sub