Excel VBA 技巧分享
If related more than one workbook, it is better as below,
Dim nWs As Worksheet, dWs As Worksheet
Set nWs = ActiveSheet
Set dWs = Workbooks("DataBase.xlsx").Sheets("Data")
dWs.Range("A2:J2").Copy nWs.Range("A2")
....
Set nWs = Nothing
Set dWs = Nothing