Количество месяцев и дней между двумя датами в четырех ячейках

Sub MonthsAndDays( _
  FirstDate As Range, _
  LastDate As Range)
      
    If Day(FirstDate) <= Day(LastDate) Then
        intMonth = DateDiff("m", FirstDate, LastDate, vbMonday)
    Else
        intMonth = DateDiff("m", FirstDate, LastDate, vbMonday) - 1
    End If
    
    If Day(FirstDate) = Day(LastDate) Then
        intDays = 0
    Else
        intDays = DateDiff("d", DateAdd("m", intMonth, FirstDate), _
          LastDate)
    End If
End Sub
 
Sub CreateDaysAndMonths()
    Dim rngFirstDate As Range
    Dim rngLastDate As Range
    Dim intI As Integer
    
    Set rngLastDate = ThisWorkbook.Worksheets("INFO").Range("B5")
    
    For intI = 9 To 27
        Set rngFirstDate = ThisWorkbook.Worksheets("INFO").Range("J" & intI)
        Call MonthsAndDays(rngFirstDate, rngLastDate)
        With rngFirstDate
            .Offset(0, 2).Value = intMonth
            .Offset(0, 3).Value = intDays
            .Offset(0, 4).Value = Round((intMonth / 3), 0)
            .Offset(0, 5).Value = Round((intDays / 3), 0)
        End With
    Next
    
    Set rngFirstDate = Nothing
    Set rngLastDate = Nothing
End Sub