Update workbook from another using upload button

This should do the job if both workbooks are open and the code is ran from "Form.xlsm"
You have to put the code in a regular module and save the file as an xlsm file.

Sub Try()
Dim a

a = Array(Range("D6").Value, Range("D10").Value, Range("D12").Value, Range("D8").Value, Range("D18").Value, Range("L18").Value, _
Range("D20").Value, Range("L20").Value, Range("D26").Value, Range("D28").Value, Range("G28").Value, _
Range("L28").Value, Range("D30").Value, Range("G30").Value, Range("L30").Value, Range("D32").Value, _
Range("G32").Value, Range("L32").Value, Range("D34").Value, Range("G34").Value, Range("L34").Value, _
Range("D36").Value, Range("D38").Value, Range("C43").Value)

With Windows("Results.xlsx")
    .Activate
    Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(a) + 1) = a
End With

End Sub