Paste this into the code page for sheet3
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then GetEmpData Target
End Sub
Private Sub GetEmpData(ByVal Target As Range)
Dim Cel As Range
Dim Found As Range
Dim Tmp1 As Range 'due to peculiarities of Intersect
Dim Tmp2 As Range 'due to peculiarities of Intersect
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False 'To prevent Worksheet_Change from triggering
Set Cel = Target
With Sheets("Master")
Set Found = .Range("A:A").Find(Cel)
If Found Is Nothing Then
Cel.Offset(0, 1) = "Emp Number Not Found; Try again"
Else
Set Tmp1 = Found.EntireRow
Set Tmp2 = Found.CurrentRegion
Intersect(Tmp1, Tmp2).Copy Cel
End If
End With
Application.EnableEvents = True
End Sub
Enter a new value into the Emp ID column