Formatting

Keeping it simple, try this VBA

Public Sub Reorganize()
Dim lastrow As Long
Dim endrow As Long
Dim i As Long
    
    Application.ScreenUpdating = False

    With ActiveSheet
    
        lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
        For i = 1 To lastrow
        
            .Cells(i, "A").Value = .Cells(i, "B").Value
            endrow = i
            Do
            
                endrow = endrow + 1
            Loop Until .Cells(endrow, "B").Value Like "Task*" Or endrow > lastrow
            
            .Cells(i, "A").Resize(endrow - i).Value = .Cells(i, "A").Value
            
            i = endrow - 1
        Next i
        
        For i = lastrow To 1 Step -1
        
            If .Cells(i, "B").Value Like "Task*" Then .Rows(i).Delete
        Next i
    End With
    
    Application.ScreenUpdating = True
End Sub