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

Sub Hide_нерабочие_поз()    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Columns(17).Cells         'проходим по всем ячейкам Н-ной строки
        If cell.Value = "надо сослаться на значение ячейки в столбце 23 в проверяемой строке" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub