Метод «Диапазон объектов _Размер, ошибка: 1004»

Question

Dim CatSh As Worksheet 
Dim Cat(1 To 9) As Range 
Set CatSh = Worksheets("Categories") 
    For i = LBound(Cat) To UBound(Cat) 
    Set Cat(i) = CatSh.Range(CatSh.Range(CatSh.Cells(2, i)),CatSh.Range(CatSh.Cells(2, i)).End(xlDown)) 
    Next i 

Этот простой код сбрасывается на 5-й строке. Я пробовал несколько комбинаций CatSh.Range, и никто не работал. Такая же ошибка каждый раз. Я отчаянно нуждаюсь в решении.

Answer 1

Изменение этой строки:

Set Cat(i) = CatSh.Range(CatSh.Cells(2, i),CatSh.Cells(2, i).End(xlDown)) 

Интервал один клеток не работает, и является излишним.