Excel 2000 subtotals with matching names
 

I am using Excel 2000 with Windows 2000.

I am working on a macro that pulls in a cell from a subtotal off to the
right of my
totals section.

Here is the code so far:


ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("B3").Select
Selection.Copy
Range("B5:B11").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
End Sub


How do I set this up as a loop to load in the text for each of the
cells all the way until
the cell says "Grand Total"?

Thank you in advance for your help.