帮我解释下这段VBA里面是什么意思

如下注释，如还有不明之处
可以再问：
Sub 合并工作薄()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False '禁用屏幕刷新，提高代码运行效率
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件") '弹出打开文件界面，显示并选择要合并的Excel文件，支持多选
If TypeName(FilesToOpen) = "Boolean" Then '未做任何选择
MsgBox "没有选中文件" '则提示没有选中文件
GoTo ExitHandler '然后跳转至ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen) 'x从1到打开文件的个数循环
Workbooks.Open Filename:=FilesToOpen(x) '以此打开文件
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '将打开的文件工作表移动到这个工作表的最后一个工作表后面
x = x + 1
Wend
ExitHandler: '如果不选择文件，不执行上述文件合并操作
Application.ScreenUpdating = True '启用屏幕刷新并退出程序
Exit Sub
ErrHandler:
MsgBox Err.Description '如果出现错误，弹框提示错误
Resume ExitHandler '返回ExitHandler，即启用屏幕刷新并退出程序
End Sub追问

如果我想从打开的工作表里，从第四行开始复制到这个工作表的最后一个工作表后面

就是“Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '将打开的文件工作表移动到这个工作表的最后一个工作表后面”

怎么修改呢？
（另外：每个工作簿都有2个工作表，名字分别是“PC端” 和 “无线端”，怎么分别汇总）

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v332r2y7vexyjjefj27.html