Select matching cell and insert value 4 cells to the left of selected cell?

OK, does this work? I need to check which code the formatting should be copied from and which it is going to.

Sub TomToms()

Set ws1 = Worksheets("PO Info Checklist")
Set ws2 = Worksheets("Closed Jobs List")

Set CheckRange = ws2.Range("A1:A" & ws2.Cells(Rows.Count, "A").End(xlUp).Row)  'closed
Set SearchRange = ws1.Range("J1:J" & ws1.Cells(Rows.Count, "J").End(xlUp).Row) 'info

For Each cell In CheckRange
SearchItem = "*" & cell.Value & "*"
Set c = SearchRange.Find(SearchItem)
    If Not c Is Nothing Then
        c.Offset(, -9).Resize(, 19).Interior.Color = cell.Interior.Color
        c.Offset(, 4).Value = cell.Offset(, 2).Value
        Set c = Nothing
    End If
Next

End Sub