问VBA将数据保存在另一个工作表中

EN

Sub Save_Click()

' Save Pay_Slip on "Data"Sheet

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LR As Long
Dim last As Long

Sheets("Data").Unprotect Password:=""
Sheets("Pay_Slip").Unprotect Password:=""

LR = Sheets("Pay_Slip").Range("B500").End(xlUp).Row
last = Sheets("Data").Range("E" & Rows.Count).End(xlUp).Row

Set copySheet = Worksheets("Pay_Slip")
Set pasteSheet = Worksheets("Data")

Sheets("Data").Range("A" & last + 3).Value = 
Sheets("Pay_Slip").Range("Y3").Value
Sheets("Data").Range("B" & last + 3).Value = 
Sheets("Pay_Slip").Range("T3:V3").Value
Sheets("Data").Range("C" & last + 3).Value = 
Sheets("Pay_Slip").Range("I2:K2").Value

copySheet.Range("A5" & ":AI" & LR + 2).Copy
pasteSheet.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial 
xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

Sheets("Pay_Slip").Range("X2").Value = _
Sheets("Pay_Slip").Range("X2").Value + 1

Sheets("Pay_Slip").Protect Password:=""
Sheets("Data").Protect Password:=""

End Sub