Скопируйте строки на другой лист с помощью VBA

Question

Мне нужно скопировать файлы с 1 листа на другой, дело в том, что я должен отфильтровать их из листа Excel, который всегда содержит около 6 или более таблиц на 1 листе, они даже не являются одинаковыми таблицами, но мне нужно вырезатьважную информацию из них и объединить их.
tl; dr vba не позволит мне указать область ячейки с переменными, как только я скажу ему скопировать ее на другой лист

Клиент не хочет платитьдля лицензионных сборов, поэтому я здесь пытаюсь воссоздать внутреннее соединение SQL с VBA в Excel.

• это работает, если я просто скажу Range ("A1") или что-то еще
• , используя некоторые дополнительные переменные для вырезания числа и буквы
• Макрос не будет работать

-------------------------- Работы

ThisWorkbook.Worksheets("SecretCompany").Range(Cells(ZellenNummer(i), 1), Cells(ZellenNummer(i - 2), 16)).Copy _
   Destination:=Worksheets("SecretCompany" & Counter).Range("A1")
Counter = Counter + 1

-------------------------- Но-это-не

ThisWorkbook.Worksheets("SecretCompany").Range(Cells(ZellenNummer(i), 1), Cells(ZellenNummer(i - 2), 16)).Copy _
   Destination:=Worksheets("SecretCompany1" & Counter).Range(SomeVariable)
Counter = Counter + 1

это приводит только к ошибке 1004.