Find Bold Text Heading and put value in another column

[sniper26]

Hi all,

I am trying to figure out how to loop column A and find the bold "headings" and then take that value and put it Column F for each row.

Sample Data: TinyUpload.com - best file hosting solution, with no limits, totaly free

You can see in the sample data, the actual data I am working with and the result I am trying to accomplish. Any help would be greatly appreciated.

Thanks,
sniper26

 

[sniper26]

I have the looping and finding the bold text part working. I just need to figure out how to put that value in Column F for each row.

 

[sniper26]

This is what I have so far. I just need to take the value of 'Heading' and paste it in Column F, row number 'ActiveCell.Row'

Sub Test2()
   Range("A1").Select
   Do Until IsEmpty(ActiveCell)
        If ActiveCell.Font.Bold = True Then
          Heading = ActiveCell.Value
        Else
          
        End If
        Debug.Print Heading
        Debug.Print ActiveCell.Row


      ActiveCell.Offset(1, 0).Select
   Loop
End Sub