Here's a basic macro to try:
Sub MeldSourceWithTemplate()
Dim rngSource As Range
Dim rngDest As Range
Dim strRangeRef As String
Dim RowGroupCount As Integer
RowGroupCount = 3 '<-Change this to match the actual groupings. Example: If there are two template rows followed by a blank then the RowGroupCount =3
Set rngSource = Range("A5", Range("A5").End(xlDown))
Set rngDest = Range("D4:E" & [D:D].Cells.Count)
strRangeRef = rngSource.AddressLocal(RowAbsolute:=True, ColumnAbsolute:=False)
With rngDest
.SpecialCells(xlCellTypeBlanks).Formula = "=INDEX(" & strRangeRef & ",CEILING((ROW()-ROW($D$4)-1)/" & RowGroupCount & ",1))"
.CurrentRegion.Copy
.CurrentRegion.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Is that something you can work with?
Bookmarks