Vlookup in macro

[Jymoz]

I waned a macro to bring up multiple values when i enter in a value. I was given this code:

 
Dim sFind As String

    If Target.Column > 1 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    sFind = Target.Value
    If Not Intersect(Target, Sheet2.Range("A1:A1000")) Is Nothing Then
        Target.Offset(0, 1).Value = WorksheetFunction.VLookup(sFind, Sheet1.Range("Data"), 2, False)
        Target.Offset(0, 2).Value = WorksheetFunction.VLookup(sFind, Sheet1.Range("Data"), 3, False)
        Target.Offset(0, 3).Value = WorksheetFunction.VLookup(sFind, Sheet1.Range("Data"), 4, False)
    End If
End Sub

The problem is i dont know how it works and so i cant adapt it to my system. Can someone explain it to me