将所有行(范围)从一个工作簿复制到新的，但首先删除重复项

Question

我正在消除重复的，不给任何错误。然后我尝试选择所有的行(不相同的每次)给出超出范围的错误

MyBook.Sheets("Excel").Range("C1:P1000000").Copy .Sheets("Sheet1").Rows("1")

Dim rg As Range
Dim rg2 As Range
Set rg = Range("F2").CurrentRegion
rg.RemoveDuplicates Columns:=1, Header:=xlYes

Dim MyBook As Workbook, newBook As Workbook
Dim FileNm As String
Set MyBook = ThisWorkbook
FileNm = ThisWorkbook.Path & "" & "TEST-BOOK.xls"
Set newBook = Workbooks.Add
With newBook
MyBook.Sheets("Excel").Range("C1:P1000000").Copy .Sheets("Sheet1").Rows("1")
'Save new wb with XLS extension
.SaveAs Filename:=FileNm, FileFormat:=xlNormal, CreateBackup:=False
.Close Savechanges:=False
End With

Answer 1

dim newWb as workbook
activesheet.cells.copy
set newWb = workbooks.add
newWb .worksheets(1).cells(1,1).pastespecial