求助，小白求助如何将多个选定内容建立个新的excel

会把指定部分分别放在8个文件的第一页第一个单元格起，文件名为1.xlsx到8.xlsx，存储位置和执行文件同一文件夹。细节可以根据需求自行调整。
Dim NewWB As Workbook
Dim Wpath, Spath As String
Wpath = ThisWorkbook.Path & "\"
For i = 1 To 8
Set NewWB = Workbooks.Add
ThisWorkbook.Sheets(i).[b1000:b3047].Copy NewWB.Sheets(1).[a1]
Spath = Wpath & i & ".xlsx"
NewWB.SaveAs Spath
NewWB.Close
Next