Transposing an Array

    Set inp_form = ActiveWorkbook.Worksheets("Sheet 1")
    For i = 1 To iCountBox
        cntrng = 12 + i
        inp_form.Range("A" & cntrng).Value = i
        inp_form.Range("B" & cntrng).Value = revcode(i)
        inp_form.Range("D" & cntrng).Value = hcpc(i)
        inp_form.Range("E" & cntrng).Value = modifier(i)
        inp_form.Range("F" & cntrng).Value = iDate(i)
        inp_form.Range("G" & cntrng).Value = unit(i)
        inp_form.Range("H" & cntrng).Value = charges(i)
    Next

Looking to pass an array into the cells using code similar to this:

    With inp_form.Range("K13:L13").Resize(iCountBox)
        .Value = Application.Transpose(cpt)
        .Sort .Resize(, 1).Offset(, 1), xlDescending, , , , , , xlNo
    End With