SH2008 wrote:
terlampir dengan attachment
> 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
>
>
>
>
>
upload data.xls
Description: MS-Excel spreadsheet
