Try the attached.
Code assigned to the button
Code
Sub UpdateResults()
Dim x, y, z, i As Long, ii As Long
x = [Table1]: y = [Table1[ID]]: z = [Table2]
For i = 1 To UBound(z, 1)
If Not IsError(Application.Match(z(i, 1), y, 0)) Then
ii = Application.Match(z(i, 1), y, 0)
If x(ii, 5) = z(i, 2) And x(ii, 6) = z(i, 3) Then
x(ii, 7) = z(i, 4)
End If
End If
Next
[Table1] = x
Sheet1.Activate
End Sub
Display More