Sub insertData()
    Dim lc%
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
    Cells(3, lc).Resize(17).AutoFill Destination:=Cells(3, lc).Resize(17, 2), Type:=xlFillDefault
    Cells(3, lc + 1).Offset(1).Resize(16).ClearContents
    
    Cells(4, lc + 1) = [a1].Value
    Cells(8, lc + 1) = [d1].Value / 100
    Cells(9, lc + 1) = [e1].Value / 100
    Cells(10, lc + 1) = [f1].Value / 100
    Cells(11, lc + 1) = [g1].Value / 100
    Cells(12, lc + 1) = [h1].Value / 100
    
    Cells(13, lc + 1) = [a3].Value
    Cells(15, lc + 1) = [d3].Value / 100
    Cells(16, lc + 1) = [e3].Value / 100
    Cells(17, lc + 1) = [f3].Value / 100
    Cells(18, lc + 1) = [g3].Value / 100
    Cells(19, lc + 1) = [h3].Value / 100
End Sub