I haven't looked at what your code is trying to do but a quick tidy u
suggests that this might be easier to read.

Do Until ActiveCell = "Stop"

ActiveWorkbook.Names.Add Name:="Count1", RefersToR1C1:=ActiveCell
Selection.End(xlDown).Select
ActiveWorkbook.Names.Add Name:="Count2", RefersToR1C1:=ActiveCell

ActiveCell.Offset(0, 1).Select
ActiveWorkbook.Names.Add Name:="Starters"
RefersToR1C1:=ActiveCell
ActiveCell.FormulaR1C1 = "=COUNTA(Count1:Count2)"

If Range("Starters") <= "7" Then SixRunners
If Range("Starters") <= "8" Then SevenRunners
If Range("Starters") = "15" Then SixteenRunners


Range("Starters").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

ActiveCell.Offset(2, -1).Select

Loop
Range("A2").Select

End Su

--
tony
-----------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...fo&userid=2107
View this thread: http://www.excelforum.com/showthread.php?threadid=54443