выделять непустые ячейки, фильтровать, копировать и вставлять в 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