选择非空白单元格，过滤，复制和粘贴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