how to order multiple copies in other sheet into group/under a created header/row automatically?

With the code below, I want to order every time I copy to the other sheet to be organized like this.

enter image description here

Instead the code does this:

enter image description here

How can I change it?

Set findfirst = targetSheet.Range("H:H").Find("Tykkelse [m]")
currentvalue = findfirst.Offset(1, 0).Value
findfirst.Offset(-1, 0).EntireRow.Insert xlDown
With Range(Cells(findfirst.Row - 2, 1), Cells(findfirst.Row - 2, 14))
    .Merge
    .HorizontalAlignment = xlCenter
    .Interior.ColorIndex = 27
    .Font.Bold = 1
    .Font.Size = 18
    .Value = currentvalue
End With