Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Target.Count =  1  Then
        If Target.Column =  1  Then
            If Target.Value <> "" Then
                Set rng = ThisWorkbook.Worksheets( 2 ).Range("A:A").Find(What:=Target, LookIn:=xlValues, LookAt:= _
                    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
                If Not rng Is Nothing Then
                    Application.EnableEvents = False
                    rng.EntireRow.Copy Target.Cells( 1 ,  1 )
                    Application.EnableEvents = True
                End If
            End If
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, rng2 As Range
    For Each rng2 In Target.Cells
        If rng2.Column =  1  Then
            If rng2.Value <> "" Then
                Set rng = ThisWorkbook.Worksheets( 2 ).Range("A:A").Find(What:=rng2, LookIn:=xlValues, LookAt:= _
                    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
                If Not rng Is Nothing Then
                    Application.EnableEvents = False
                    rng.EntireRow.Copy rng2
                    Application.EnableEvents = True
                End If
            End If
        End If
    Next
End Sub