VBA скрипт

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

Добрый день.
Подскажите пожалуйста, как в скрипте VBA вытащить самый нижний объект "строк", выбранный пользователем в сводной таблице.
Пока получается только вытащить все, ранее не работал с VBA, не совсем понимаю как можно проверить объект к принадлежности строк.

Sub FInd()
With ActiveSheet.PivotTables("Сводная таблица1")
        For i = 1 To .PivotFields.Count
         MsgBox .PivotFields(i).Name
     
        Next
    End With
End Sub

Решение задачи: «VBA скрипт»

textual
                            Листинг программы 
                        
                            MsgBox .RowFields(.RowFields.Count).Name