Цветовое оформление данных (где факт поступления совпадает/не совпадает с планом)

Создал файл для расчета факт план поступлений, написал макрос, который должен был помочь в том, чтобы понять, где факт поступления совпадают планом, но что-то прописано неверно. В файле есть данные на листе 1 они плановые и данные листа 2 они фактические. На первом листе нужно, чтобы совпавшие факт-план суммы были синими или просто не красились, те участки где на листе 1 не было суммы подсвечивались другим цветом( в примере голубой), а если на втором листе не никаких данных о такой сумме то подсвечивалось красным. я остановился на первом этапе и что идет неверно видно по синим ячейкам. Подскажите как в этой ситуации можно прописать макрос?

 Sub income()

Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = ThisWorkbook.Sheets("лист1")
Set sh2 = ThisWorkbook.Sheets("лист2")

LastRow = ThisWorkbook.Sheets("лист1").Cells(Rows.Count, 1).End(xlUp).Row
Lastcolumn = ThisWorkbook.Sheets("лист1").Cells(1, Columns.Count).End(xlToLeft).Column
Lastrow1 = ThisWorkbook.Sheets("лист2").Cells(Rows.Count, 1).End(xlUp).Row
Lastcolumn1 = ThisWorkbook.Sheets("лист2").Cells(1, Columns.Count).End(xlToLeft).Column

Dim i As Integer, j As Integer, k As Integer, n As Integer, s As Integer

For i = 2 To Lastrow1
   For j = 2 To LastRow

   If sh2.Cells(i, 1) = sh1.Cells(j, 1) Then
   k = j

   End If
   Next
 On Error Resume Next
  For s = 4 To Lastcolumn
  If sh2.Cells(i, 3) = sh1.Cells(1, s) * 1 Then
   n = s

  On Error Resume Next
   ElseIf sh2.Cells(i, 2) = sh1.Cells(k, n) Then

   sh1.Cells(k, n).Interior.Color = vbBlue
   End If

   Next
Next i

End Sub