vba array

Sub test()
  Dim polje(-1 To -1, -1 To -1) As Double
  
  Debug.Print UBound(polje, 1)
End Sub

Dim Tabela() as Variant

    If RecordSet.EOF = True Then
        rowi = -1
        fr = 1
    Else
        rsrows = RecordSet.GetRows
        rowi = UBound(rsrows, 2)
    End If
    Set FieldsRange = ASheet.Range(TargetRange, TargetRange.cells(1, coli + UBound(EmptyColumns) + 2))
    Set TotalRange = ASheet.Range(TargetRange, TargetRange.cells(rowi + 2, coli + UBound(EmptyColumns) + 2))
    Set TotalDataRange = ASheet.Range(TargetRange.cells(2, 1), TargetRange.Offset(1).cells(rowi + 1 + fr, coli + UBound(EmptyColumns) + 2))
    ' UBound(rsrows, 1) = columns
    ' UBound(rsrows, 2) = rows
    If GenerateTable = True And ObjectExists(TableName) = True And Update = True And KeyColumn = "" Then
        If ShiftRows = True Then
            With ASheet.ListObjects(TableName)
                If .ListRows.Count < rowi + 1 Then
                    If .ListRows.Count = 0 Then .ListRows.Add: waszero = True
                    If rowi > 0 Then .DataBodyRange.Rows(.ListRows.Count + 1 & ":" & rowi + 1).Insert Shift:=xlDown
                ElseIf .ListRows.Count > rowi + 1 Then
                    ASheet.Range(.DataBodyRange.Rows(rowi + 2), .DataBodyRange.Rows(.ListRows.Count)).Delete Shift:=xlUp
                End If
            End With
        End If
    ElseIf RegionExists(TableName) = True And Update = True And KeyColumn = "" Then
        If ShiftRows = True Then
            With ASheet.Range(TableName)
                If .Rows.Count < 2 Then waszero = True
                If .Rows.Count < TotalRange.Rows.Count Then
                    .cells(2).Resize(TotalRange.Rows.Count - .Rows.Count).Insert Shift:=xlDown
                ElseIf .Rows.Count > TotalRange.Rows.Count Then
                    .Rows(TotalRange.Rows.Count + 1 & ":" & .Rows.Count).Delete Shift:=xlUp
                End If
            End With
        End If
    Else
        waszero = True
    End If