Correct data with VBA

Try this:

Dim acell As Range, f As Range

For Each acell In Worksheets("Sheet2").Range("A1:H72")
    With Worksheets("Sheet1").Range("A:A")
        Set f = .Find(acell)
        If Not f Is Nothing Then
            acell = f.Offset(0, 1)
        End If
    End With
Next

Obviously you'll need to customise it to your range but should be good.