Метод консолидации - VBA

Question

Уважаемые,

У меня проблема с методом консолидации.Я получаю сообщение об ошибке 1004 во время выполнения:

.Consolidate Sources:=ArrSource, Function:=xlSum, _
   TopRow:=False, LeftColumn:=True, CreateLinks:=False

. Ниже приведен мой код:

Option Explicit

Sub test1()

    Dim ArrSource As Variant

    With ThisWorkbook.Worksheets("Sheet1")

        ArrSource = .Range("A1:B20")

        With .Range("D1")
            .Consolidate Sources:=ArrSource, Function:=xlSum, _
                TopRow:=False, LeftColumn:=True, CreateLinks:=False
        End With

    End With

End Sub

Есть идеи?