Hi,

I want to create a subroutine that will accomplish four things:

1) insert rows above a range;

2) populate those rows;

3) sum the total of the inserted rows on to the named range; and

4) create an outline of the added rows.


I will pass this subrountine an array called arArray(). It will contain a
set of numbers which then determine the number of rows to inserts. Array
could contain over 100 numbers.

It is easier to explain what I need to do by way of example.

Let's assume arArray contains (2,6,8,12)

1) Then I need to insert four rows on a summary sheet range called
rnSummaryData.

2) I need to populate the four rows from sheets P2, P6, P8, and 12, all
having a local range name "rnData". "P" represents project. I want to
populate the four rows using links.

3) I need to create a sum total of the four to rnSummaryData.

4) I need to create an outline.


Here's what I have done so far. Please feel free to modify code to make it
better, more streamlined.

Sub GetSummary()
Dim arArray(1 To 4) As Integer

'\ 4 for this example...in my code it will be variable

Dim iNoArrayElements As Integer
Dim iCounter1 As Integer
Dim iCounter2 As Integer

arArray(1) = 2
arArray(2) = 6
arArray(3) = 8
arArray(4) = 12

iNoArrayElements = UBound(arArray) - LBound(arArray) + 1

For iCounter1 = 1 To iNoArrayElements
'\ is there a way to do this in one step rather than looping?
Worksheets("Summary").Range("rnSummaryData").Inser t Shift:=xlDown
Next iCounter1

iCounter2 = 0

For iCounter1 = iNoArrayElements To 1 Step -1
iCounter2 = iCounter2 + 1
Worksheets("Summary").Range("rnSummaryData").Offse t(-iCounter1,
0).Formula = _
"='P" & arArray(iCounter1) & "'!" & "RnData"
Next iCounter1

'\ Next How do I sum and outline of the added rows? Again, it's important
to
'\ know that the array arArray size will change.

End Sub