Sub myFill()
    ActiveSheet.Copy
    
    Dim rr As Range
    Set rr = Intersect(Selection, ActiveSheet.UsedRange)
    
    Selection.EntireColumn.Columns(1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Dim rb As Range
    Dim cl As Range
    For Each cl In rr.Columns(1).Cells
        Debug.Print cl.Value
        If cl.Font.Bold Then
            Set rb = cl
        End If
        If Not rb Is Nothing Then
            rb.Copy cl.Offset(, -1)
        End If
    Next
    rb.Offset(, -1).EntireColumn.AutoFit
End Sub

Sub FixTable()
    Dim lastRow As Long, i As Long, rngTemp As Range, newWsh As Worksheet
    lastRow = Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
    Set newWsh = ActiveWorkbook.Worksheets.Add(After:=Worksheets("Лист1"))
    Application.ScreenUpdating = False
    For i = 1 To lastRow
        If Worksheets("Лист1").Cells(i, 1).IndentLevel = 0 Then
            Set rngTemp = Worksheets("Лист1").Cells(i, 1)
        End If
        If Worksheets("Лист1").Cells(i, 1).IndentLevel = 0 Then
            rngTemp.Copy Range(newWsh.Cells(i, 1), newWsh.Cells(i, 2))
        ElseIf Worksheets("Лист1").Cells(i, 1).IndentLevel = 1 Then
            rngTemp.Copy newWsh.Cells(i, 1)
            Worksheets("Лист1").Cells(i, 1).Copy newWsh.Cells(i, 2)
        End If
    Next i
    newWsh.Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub