Compile Error Expected End Sub

[rocky102]

I am a novice old timer who enjoys fooling around with excel, I copied this macro from and old computer and wanted to use it one a new one I got.

Its supposed to draw a line across a row when there is a change from one number to another.

When I try to use it I get this error

Compile Error
Expected End Sub

Help please.
Thanks Don






Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/27/2008 by
'
' Keyboard Shortcut: Ctrl+m

Sub Drawline()
Dim vValue
Do Until ActiveCell = Empty
vValue = ActiveCell
ActiveCell.Offset(1, 0).Activate
If ActiveCell <> vValue Then
Range(ActiveCell, ActiveCell.Offset(0, 35)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Loop

End Sub

[ubentook]

Add an apostrophe ' in front of Sub Macro1()

[jg007]

looking at this you seem to have created a macro and then copied the old macro inside it but you have also copied the start of the sub.

if you start a sub -

Sub Example_Macro
 

you then need to end that sub -

End Sub
 

if you record the macro excell will generate a sub for you - 'macro1' in your code, this sub will have a start and end and you have confused excel by starting another sub within that one and not finishing it.

if you add an apostrophe " ' " it comments that line out so if you add the apostrophe before the " sub macro1 " excel will then just use your sub and you will see the macro name will also change to 'drawline'