here is the code
Sub getData()
For Each x In Sheets("after").Range("B2:B4")
For Each y In Sheets("Before").Range("B2:B10")
If y = x Then Sheets("After").Range("H" & x.Row) = Sheets("After").Range("H" & x.Row).Value _
& Sheets("Before").Range("H" & y.Row).Value
Next y
Next x
End Sub
Hope this help.
pichart Y