Sub tt()
       Dim a(), b(), i&, t$, d$, x&

       With CreateObject("scripting.dictionary"): .comparemode = 1
           a = Sheets("АРХИВ").UsedRange.Value
           For i = 1 To UBound(a): .Item(a(i, 1) & "|" & a(i, 3)) = i: Next
           b = Sheets("Месячный").UsedRange.Offset(1).Value
           d = [c1]
           For i = 1 To UBound(b)
               t = b(i, 1) & "|" & d
               If .exists(t) Then
                   x = .Item(t)
                   b(i, 2) = a(x, 1)
                   b(i, 3) = a(x, 2)
                   b(i, 4) = a(x, 13)
                   b(i, 5) = a(x, 19)
                   b(i, 6) = a(x, 25)
               End If
           Next
       End With
       Sheets("Месячный").UsedRange.Offset(1).Value = b
End Sub