Sub âñòàâêà_ñòðîê_ïîI()
Dim lngI As Long
    For lngI = Cells(Rows.Count, "I").End(xlUp).Row To 2 Step -1
    If Range("I" & lngI) > 1 Then
        Rows(lngI + 1 & ":" & lngI + 1 + (Range("I" & lngI) - 2)).Insert shift:=xlDown
End If
 
    Next lngI
End Sub

Sub вставка_строк_поJ()
Dim lngI As Long
    For lngI = Cells(Rows.Count, "j").End(xlUp).Row To 2 Step -1
    If Range("j" & lngI) > 1 Then
        Rows(lngI + 1 & ":" & lngI + 1 + (Range("j" & lngI) - 2)).Insert shift:=xlDown
End If
 
    Next lngI
End Sub

Function MergeIf(TextRange As Range, SearchRange As Range, Condition As String)
    Dim Delimeter As String, i As Long
    Delimeter = ", " 'символы-разделители (можно заменить на пробел или ; и т.д.)
     
    'если диапазоны проверки и склеивания не равны друг другу - выходим с ошибкой
    If SearchRange.Count <> TextRange.Count Then
        MergeIf = CVErr(xlErrRef)
        Exit Function
    End If
     
    'проходим по все ячейкам, проверяем условие и собираем текст в переменную OutText
    For i = 1 To SearchRange.Cells.Count
        If SearchRange.Cells(i) Like Condition Then OutText = OutText & TextRange.Cells(i) & Delimeter
    Next i
     
    'выводим результаты без последнего разделителя
    MergeIf = Left(OutText, Len(OutText) - Len(Delimeter))
End Function

cell.Offset(0, 6)