View Single Post
  #3   Report Post  
Andy Brown
 
Posts: n/a
Default

OK, I probably shouldn't be let loose with code. Add to that you already
have a response from an MVP, so if I add *anything* I'm liable to be laughed
out of town. But what the hey.

Maybe you could try some code? Select the first cell in column A next to a
"GroupWhatever" cell, then run Macro1.

Sub Macro1()
n = Range("B65536").End(xlUp).Row
Do Until ActiveCell & ActiveCell.Offset(0, 1) = ""
If Left(ActiveCell.Offset(0, 1), 5) = "Group" Then
Range("C1") = ActiveCell.Offset(0, 1)
ActiveCell.Offset(2, 0).Select
Macro2
End If
Loop
ActiveCell.Offset(1, 0).Select
End Sub
'
Sub Macro2()
Do Until ActiveCell.Offset(0, 1) = ""
ActiveCell.Value = Range("C1") & ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select
End Sub

HTH,
Andy