Copying Row 1 Into Every Third Blank Row

[mlmrob]

Is there anyway that Row 1 can be copied and pasted into evry third row as in the the attached document.

When the sheet is formulated only Row 1 has the data I need need to copy and paste and I just do it manually. Is there a way it can be automated.

I have provided a link to what the finished sheet should look like

https://www.dropbox.com/sh/2kybcn6vi6kcxnd/AABYcl7rEbWCYyfmLnHP6Ngla?dl=0

The link below is the sheet before copying and pasting

https://www.dropbox.com/s/4ft1qid4h8xmpij/Plus Example Blank.xlsx?dl=0

The sheet can go down to 2000 lines.

Thanks and Regards

Rob

 

[oldbrewer]

the first link is to dozens of sheets

 

[mlmrob]

Oops...sorry try this link

https://www.dropbox.com/s/glsbzfb8ee5rrey/Plus Example.xlsx?dl=0

 

[Fluff]

How about

Sub CopyHeader()
   
   Dim Rng As Range
   
   For Each Rng In Columns(1).SpecialCells(xlBlanks).Areas
      Rng.Offset(Rng.Count - 1).Resize(1).EntireRow.Value = Rows(1).EntireRow.Value
   Next Rng
   
End Sub

 

[mlmrob]

Thanks for the prompt reply, will give that a go today.

 

[mlmrob]

Perfection Fluff, thank you very much for your time, much appreciated.

 

[Fluff]

Glad to help & thanks for the feedback