Copy cell value and paste with looping

[JODomingos]

Hi Fellows!
I need a macro to perform copy and paste with looping. I would like to copy cell A3 "Most Frequent" and paste below the last word of the each group in the column (A,B,C,D...). As you can see the result below. Thanks in advance

 

[Fluff]

How about

Sub JODomingos()
   Dim Rng As Range
   
   For Each Rng In Range("A4:A" & Rows.Count).SpecialCells(xlConstants).Areas
      Rng.Offset(Rng.Count)(1).Value = Range("A3").Value
   Next Rng
End Sub

 

[JODomingos]

It Worked perfectly. thank you so much

 

[Fluff]

Glad to help & thanks for the feedback.