How to expand the vertical data groups one by one? (1 Viewer)

Kindly find attached herewith the file.

I can able to show the different levels on the outline through but not the vertical data groups.

How to do it?

I tried expanding the "+" sign one by one using record macro but no code was trapped.

I want to individually expand, read data and close the vertical data groups

I am just looking for a code to do the "Show Detail" and "Hide Detail" programmatically. Possible?

rows(rownum).showdetail = true solves my purpose. Any other effective method than this?