write an cell if another cell is bold

[white_flag]

hello I have this code

Option Explicit
Public Sub test()

Dim my_range As Range
Dim c As Variant

Set my_range = ActiveSheet.Range("D:D")

For Each c In my_range
    If c.Font.Bold = True Then
 ' here I have no idea
    End If
Next c
    

End Sub

example if E30 is bold .. then the code will write in F30 text from F29

 

[white_flag]

got the point

thank you very much. it is fixed