Excel VBA 技巧分享2
Further, if only paste value without format, here is for reference.
Sub CopySheetD2SheetN()
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").PasteSpecial xlPasteValues
....
MsgBox "Completed!", vbInformation, "Message"
Set nWs = Nothing
Set dWs = Nothing
End Sub