Не работает код:(

Sub ЗП()
Dim mes As String
Dim llastrowzp As Long
Dim llastrowdox As Long
Dim llastrownach As Long
Dim llastcolzp As Long
Dim llastcoldox As Long
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
mes = Worksheets("ЗП").Cells(7, 10)
If mes = "" Then
   MsgBox ("Не выбран месяц")
   Exit Sub
End If
llastrownach = Worksheets("ЗП").Cells(Rows.Count, 2).End(xlUp).Row
llastrowzp = Worksheets("Сводный отчет").Cells(Rows.Count, 2).End(xlUp).Row
llastrowdox = Worksheets("Доход").Cells(Rows.Count, 2).End(xlUp).Row
 
llastcolzp = Worksheets("Сводный отчет").Cells(3, Columns.Count).End(xlToLeft).Column
llastcoldox = Worksheets("Доход").Cells(3, Columns.Count).End(xlToLeft).Column
 
 
For i = 4 To llastrownach
 
   For k = 5 To llastcolzp
      If mes = Worksheets("Сводный отчет").Cells(3, k) Then
         For j = 4 To llastrowzp
            If Worksheets("ЗП").Cells(i, 1) & Worksheets("ЗП").Cells(i, 2) & Worksheets("ЗП").Cells(i, 3) & Worksheets("ЗП").Cells(i,4) = Worksheets("Сводный отчет").Cells(j, 1) & Worksheets("Сводный отчет").Cells(j, 2) & Worksheets("Сводный отчет").Cells(j, 3) & Worksheets("Сводный отчет").Cells(j, 4) Then
               Worksheets("Сводный отчет").Cells(j, k) = Worksheets("ЗП").Cells(i, 7)
            End If
         Next j
      End If
   Next k
 
   For k = 5 To llastcoldox
      If mes = Worksheets("Доход").Cells(3, k) Then
         For j = 4 To llastrowdox
            If Worksheets("ЗП").Cells(i, 1) & Worksheets("ЗП").Cells(i, 2) & Worksheets("ЗП").Cells(i, 3) & Worksheets("ЗП").Cells(i,4) = Worksheets("Доход").Cells(i, 1) & Worksheets("Доход").Cells(j, 2) & Worksheets("Доход").Cells(j,3) & Worksheets("Доход").Cells(j, 4) Then
               Worksheets("Доход").Cells(j, k) = Worksheets("ЗП").Cells(i, 8)
            End If
         Next j
      End If
   Next k
Next i
End Sub