Programmänderung gesucht

Sub Farben_mitnehmen()
Dim i, j As Long
For i = 5 To 7
For j = 5 To 8
If Sheets("Import").Cells(i, 1) = Sheets("Export").Cells(j, 1) Then
Sheets("Import").Cells(i, 2).Interior.ColorIndex = _
Sheets("Export").Cells(j, 2).Interior.ColorIndex
End If
Next j
Next i
End Sub

Es soll sich nach Änderung eines Wertes in der Tabelle Import in Spalte A oder B selbst aufrufen.
Zuvor wird mit Hilfe eines Sverweises ein Tabellenabgleich vorgenommen.
Wie könnte man diese Änderung einbauen?
Gruß
Jean