Универсальный макрос для создания PivotTable - VB

Формулировка задачи:

Создаю PivotTable, который на основе таблицы в Листе "InWeek", записывается в новом листе.
Но в таблице в Листе "InWeek" может быть переменное количество строк. Как мне избавиться от R1C1:R767209C22, и сделать так, чтобы просто бралась вся таблица целиком из Листа "InWeek".

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "InTotal!R1C1:R767209C22", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=ActiveSheet.Cells(32, 1), TableName:="PivotTable5", DefaultVersion _
        :=xlPivotTableVersion12

Решение задачи: «Универсальный макрос для создания PivotTable»

textual
                            Листинг программы 
                        
                            Dim pt As PivotTable
    Set pt = Target

    For i = 3 To pt.TableRange1.Rows.Count - 1
   
    pt.TableRange1.Rows(i).FormatConditions.Delete
    pt.TableRange1.Rows(i).FormatConditions.Add Type:=xlExpression, Formula1:="=" & pt.TableRange1(i, 2).Address & ">20"
    pt.TableRange1.Rows(i).FormatConditions(1).Interior.ColorIndex = 4
    
    pt.TableRange1.Rows(i).FormatConditions.Add Type:=xlExpression, Formula1:="=" & pt.TableRange1(i, 2).Address & ">=10"
    pt.TableRange1.Rows(i).FormatConditions(2).Interior.Color = 10092543
    
    pt.TableRange1.Rows(i).FormatConditions.Add Type:=xlExpression, Formula1:="=" & pt.TableRange1(i, 2).Address & "<10"
    pt.TableRange1.Rows(i).FormatConditions(3).Interior.Color = 10079487
    
    Next