> How could I find the row # of "Total" - for example and use the row
> number for calculation?
If "Total" is sure to be present only once on the sheet:
Cells.Find ("Total").Row
> Below is my current code;
> FinalRow = Cells(Application.Rows.Count, 3).End(xlUp).Row
> FinalColumn = Cells(2, Application.Columns.Count).End
> (xlToLeft).Column
> ' Luckyly, in my current WS, Total is located @ final Row. What if
> it's not located @ Final Row?
>
> For C = 8 To FinalColumn + 15 Step 4
> Cells(, C).Resize(, 2).EntireColumn.Insert Shift:=xlToRight
> ' It puzzle me why I have to add 15 to FinalColumn. I think I
could
> live w/ this.
Each time the loop is executed it adds 2 columns. Since you're working
from left to right the final column of data increases by two each
time. You've hard coded the 15 which means you're probably working a
set number of columns each time. Consider inserting the columns from
right to left, something like:
For C=Final column to 8 step -4
That way the column numbers you want to operate on won't change.
> ' Start calculating % of Total from Row # 5
> For R = 5 To FinalRow
> Cells(R, C + 1).FormulaR1C1 = "=RC[-5]/R358C[-5]"
> Next R
> 'R358 is hardcoded. How could I make it flexible? Something
> like "R&FinalRow C[-5]"
Of course you can:
Cells(R, C + 1).FormulaR1C1 = "=RC[-5]/R" & FinalRow & "C[-5]"