Sub createEmptyRows()
    ' С текущим листом
    With ActiveSheet
        ' Диапазон действия - все строки с ячейки A2 по последнюю заполненную в колонке A
        Set actionRn = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).EntireRow
        ' Диапазон с кол-вом строк для вставки
        Set rowsToCreateAmountCol = .Range("K:K")
        
        ' Для каждой строки после которй нужно вставить пустые строки (с конца к началу)
        For i = actionRn.Rows.Count To 1 Step -1
            ' В диапазон под текущей строкой
            ' вставить кол-во строк из пересечения текущей строки с колонкой K
            actionRn.Rows(i).Offset(1, 0).Resize(RowSize:=Intersect(actionRn.Rows(i), rowsToCreateAmountCol).Cells(1).Value).Insert
        Next i
    End With
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    cols = Table.ColumnNames(Source),
    table1 = Table.AddIndexColumn(Source, "i", 0, 1),
    nulls = Table.AddColumn(table1, "nulls", each Table.Repeat(#table(cols, {List.Repeat({null},List.Count(cols))}), [Строк])),
    table2 = Table.ExpandTableColumn(Table.SelectColumns(nulls,{"nulls", "i"}), "nulls", cols),
    final = Table.Sort(table1 & table2, {"i", 0})
in
    final