add auto copy to an vba

[Excel777]

hi all
I need a little help to my vab

i want to add auto copy after every calculation done in my workbook or worksheet to this vba

taking to consideration to add these results to the next empty cell

and the results be paste especial Value

sub copy_method()
Workbooks("New Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _
Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")
end sub

thanks

 

[MARK858]

i want to add auto copy after every calculation done in my workbook or worksheet to this vba

No idea what you mean by the above, please explain exactly what you want to happen

taking to consideration to add these results to the next empty cell

and the results be paste especial Value

The part above is below

sub copy_method()
Workbooks("New Data.xlsx").Worksheets("Export").Range("A2:D9").Copy
Workbooks("Reports.xlsm").Worksheets("Data").Cells(Rows.count, "A").End(xlUp)(2).PasteSpecial xlValues
end sub