選擇非空白單元格，過濾器並複製並粘貼excel vba

Question

正如標題所示，我試圖選擇第一列中不是空白的所有單元格，然後選擇整個選擇。所以我的宏循環並計算列中的行數，直到找到所選內容爲空。過濾。刪除重複項。然後複製並粘貼到新工作表。我得到一個調試錯誤，並想知道如果有人可以幫我與代碼。這是我有：

Sub sum() 

Dim countRow As Integer 

countRow = 2 

Do Until IsEmpty(Cells(countRow, 1)) 
    countRow = countRow + 1 
Loop 

Selection.AutoFilter 
ActiveCell.Select 
ActiveSheet.Range(Cells(1, 1), Cells(7, countRow)).AutoFilter Field:=4, Criteria1:="=yes*", _ 
Operator:=xlAnd 
countRow = 2 

Do Until IsEmpty(Cells(countRow, 1)) 
    countRow = countRow + 1 
Loop 

Selection.AutoFilter 
ActiveCell.Select 
ActiveSheet.Range(Cells(1, 1), Cells(7, countRow)).Select 

Selection.Copy 
Sheets.Add After:=Sheets(Sheets.Count) 
ActiveSheet.Paste 
Application.CutCopyMode = False 
ActiveSheet.Range(Cells(1, 1), Cells(7, countRow)).RemoveDuplicates Columns:=Array(1, 7), _ 
    Header:=xlYes 
End Sub 

Answer 1

ActiveSheet.Range(Cells(1, 1), Cells(7, countRow)).Select 

應該

ActiveSheet.Range(Cells(1, 1), Cells(countRow, 7)).Select