Excel vba复制并粘贴到工作表以在单独的工作表中控制工作簿

在过去的几个月里，我成功地使用了以下代码。我现在需要有2个工作表上传到主工作簿中的两个单独的工作表

图纸名称的细目如下：
工作表：“转介”转到主工作表：“转介报告”
表：“新账户”转到主表：“新账户报告”

下面是将数据从一个工作表发送到另一个工作表的代码，但要将同一工作簿中的宏发送到主工作簿中相应的工作表。我希望使用相同的代码，但只是需要帮助告诉它的表。感谢您的帮助

Sub ExportNewAccounts()

Dim wbl As Workbook
Dim wbm As Workbook
Dim wsl As Worksheet
Dim wsm As Worksheet
Set wbl = ThisWorkbook
Set wbm = Workbooks.Open("\\PROFILER\2016 Global Tracker.xlsx")
Set wsl = wbl.Sheets("New Accounts")
Set wsm = wbm.Sheets("New Accounts Report")

If MsgBox("Are you sure you want to export all data entered?", vbYesNo + vbInformation) = vbNo Then Exit Sub
Application.ScreenUpdating = False

With wsl.Range("A4")
    Range(.Cells(1, 1), .End(xlDown).EntireRow).Copy
End With ****HERE***
wsm.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
wbm.Save
wbm.Close
Application.ScreenUpdating = True
MsgBox ("Thanks, your data has been successfully exported.")

End Sub

Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function

---

尝试设置书本和工作表？默认参考。。。默认引用无处不在…是的，这就是我遇到的麻烦。设置书籍和床单我想我被困在如何根据我已有的代码解决它的意义上。将工作表的地址放在何处。