Transpose A Column Of Data In To A Table

[Excel Fox]

This will collate the data in a new sheet

Sub Consolidator()

    Dim rngInput As Range
    Dim lng As Long, lngCol As Long
    Set rngInput = Worksheets("Sheet1").Range("A2:A15000")
    Worksheets.Add After:=Sheets(Sheets.Count)
    For Each rngInput In rngInput
        If IsEmpty(rngInput) Then Exit For
        If rngInput.Font.Bold Then
            lng = lng + 1
            lngCol = 1
        Else
            lngCol = lngCol + 1
        End If
        Sheets(Sheets.Count).Cells(lng, lngCol).Value = rngInput.Value
    Next rngInput
    
End Sub

[gunjan.nasit]

thank you for solving....

Have you tried this code in the attached file..????

i had a runtime error "1004"
application defined or object defined


when i had debug program it has shown yellow background behind the following line of code

Sheets(Sheets.Count).Cells(lng, lngCol).Value = rngInput.Value

i think in this line there is some problem...