Создание макросов в Эксель

Выдает ошибку, объясните, пожалуйста как ее решить

Код:


Sub РешениеЗадания7()


Googs = Array("Холодильник", "Пылесос", "Вентилятор", "Чайник", "Плита", "Фильтр", "Утюг", "Фен")


'начинаем циклом перебирать названия товаров

For Each ws In Googs

'в третьем столбце (столбец С) ставим фильтр по товару

ActiveSheet.Range("$A$1:$K$57").AutoFilter Field:=3, Criteria1:=ws


'выделяем отфильрованный диапазон (у нас максимум 57 строк)

Range("A1:H60").Select

'копируем диапазон

Selection.Copy


Sheets.Add After:=ActiveSheet 'создаем новый лист

ActiveSheet.Paste 'вставляем скопированные данные

http://activesheet.select/ http://activesheet.name/ = "ws" 'меняем имя листа на название товара

http://activesheet.select/

' 'команды, отвечающие за сохрание листов в виде отдельных файлов

' ActiveSheet.Move

' ChDir "C:\Отчеты"

' ActiveWorkbook.SaveAs Filename:="C:\Товары\" & ws & "_2019.xlsx", FileFormat:= _

' xlOpenXMLWorkbook, CreateBackup:=False

' ActiveWindow.Close


Sheets("Выгрузка").Select

Application.CutCopyMode = False

Next ws



End Sub