copy paste row height

[ccsmith]

I am discouraged because i have two half solution but I can't mix them.
From one sheet I have to copy the source chart to another sheet below each copy procedure.
Everything is OK except that the row height in the destination is different from the source one.
I upload the sample file illustrate the function.
Please help me to mix the 2 part to the row height will be the same after each copy/paste.

First part:

Sub packinglabel()
 Dim i As Long, r As Long
 Dim a
 
 With Worksheets("sheet2")
    r = 1
     
   For i = 2 To UBound(a)
       
With Worksheets("Sheet2")
    .Range("A1:G16").Copy
    Worksheets("Sheet3").Range("A" & r).PasteSpecial (xlPasteValues)
    Worksheets("Sheet3").Range("A" & r).PasteSpecial (xlPasteFormats)
    Worksheets("Sheet3").Range("A" & r).PasteSpecial (xlPasteColumnWidths)
     Application.CutCopyMode = False
End With
             r = r + 16
    Next
 End With
End Sub

Second part:

For r = 1 To .Rows.Count
            Dest.Rows(r).RowHeight = Source.Rows(r).RowHeight
Next r