Compile Error: Expected End Sub

Trying to create macro the will search to match data on an entry tab with data on a tab called data. When I find a match, I want the contents of E25 to be posted to column O in the corresponding line on the data tab.

I keep getting the compile error. I originally called the macro option1. A friend helped with the code and he has it as worksheet_change. Can't seem to get it changed and working.

Thanks for your help.

Dcauth

Sub Option1()
'
' Option1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
   Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long
    On Error GoTo ErrHandler
    If Not Intersect(Range("E25"), Target) Is Nothing Then
        If Not Range("A28") = "" Then
            r = Application.Match(Range("A28"), Worksheets("Data").Range("V:V"), 0)
            Worksheets("Data").Range("O" & r) = Range("E25")
        End If
    End If
    Exit Sub
ErrHandler:
    MsgBox Range("A28") & " not found in Data sheet!", vbExclamation
End Sub

You need to remove the first few lines:

Sub Option1()
'
' Option1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'

Please use code tags when posting code per the forum rules.

Dom

You've got a sub with the Private Sub Worksheet_Change event in it. You need to delete one of them

Sub Option1()
'
' Option1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
   Private Sub Worksheet_Change(ByVal Target As Range)