redim строки массив Dynami c дает ошибку несоответствия типов

Question

Option Base 1

Sub ReDimRows()
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction

Dim MyArray() As Variant

MyArray = Range("A1:B11")

MyArray = ReDimRow(MyArray, 1) ' type mismatch occurs here

End Sub

Public Function ReDimRow(TargetArray() As Variant, r As Long) As Variant

TargetArray = WorksheetFunction.Transpose(TargetArray)

ReDim Preserve TargetArray(UBound(TargetArray, 1), UBound(TargetArray, 2) + r)

TargetArray = WorksheetFunction.Transpose(TargetArray)

End Function