Sub Shabbo()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim Cl As Range
Set Ws1 = Sheets("sheet1")
Set Ws2 = Sheets("sheet2")
Application.ScreenUpdating = False
With CreateObject("scripting.dictionary")
.CompareMode = 1
For Each Cl In Ws1.Range("A2", Ws1.Range("A" & Rows.Count).End(xlUp))
If Cl.Value <> "" Then .Item(Cl.Value) = Cl.Interior.Color
Next Cl
For Each Cl In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
If .Exists(Cl.Value) Then Cl.Interior.Color = .Item(Cl.Value)
Next Cl
End With
End Sub