Dim lEndRow As Long, lStartRow As Long
Dim num1 As Integer, num2 As Integer
'1st row starts from 3
lStartRow = 3
'last row = grand total and its not included
lEndRow = (Sheets("Pivots").Range("A" & Sheets("Pivots").Rows.Count).End(xlUp).Row) - 1
'First loop assingment
For num1 = lStartRow To lEndRow
'Second loop assignment
For num2 = lStartRow To lEndRow
I have a pivot table in a sheet called 'Pivots'
I want to create a new tab - say 'GL Summary' and paste all the pivot table entries into a table on this sheet.
Pivot table has 3 columns (Unique, Sum of Debt, Sum of Credit)
Could you please help me to code this? I am sure its going to be a one liner but looking around, I see a lot of complext solutions. I am very sure this can be done in one line but I am bad with ranges :/
Thanks in advance!