Pull A Reference Number And Assign It To All Records In A Particular Section

I need to pull a reference number and assign it to all records in a particular section. The code I recorded keeps going back to the first section. Also would like it to repeat until all records have the reference number attached.

06010-100Beginning Balance07/09/2004AD06011-10007/23/2004AD06011-10008/06/2004AD06011-100

06011-100Beginning Balance07/09/2004AD07/23/2004AD08/06/2004AD

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/14/2008 by acantu
'
'
Selection.Copy
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B7").Select
Selection.End(xlDown).Select
Range("C63").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select

End Sub