Hallo Marthin Taruh ini di modul :
Sub upload()
Dim RDat As Range
Set RDat = Sheets("Calculator").Range([B5], [H5].End(xlDown))
With RDat
.Select
.Copy Worksheets("Summary Hasil Hitungan").Range("B" &
Rows.Count).End(xlUp).Offset(1, 0)
End With
End Sub
