Hi All,

Is anyone able to help me rework the below code so I can run these two macros (or More) within the same sheet. They are coflicting and a message saying an ambiguous name is detected appears.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M1")) Is Nothing Then
Application.EnableEvents = False

      If Target = "HOME" Then
            Macro1
      ElseIf Target = "PRINT PAGE" Then

      ElseIf Target = "" Then

      ElseIf Target = "" Then

      End If
End If
Application.EnableEvents = True
Exit Sub


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim c As Range, i As Long
    On Error Resume Next
    Set c = Intersect(Target, Columns(1))
    If c Is Nothing Then Exit Sub
    If IsEmpty(c.Offset(-1, 0)) Or Not IsEmpty(c.Offset(1, 0)) Then Exit Sub
    i = c.Row
    If i > 1 Then
        Application.EnableEvents = False
        Range("G" & i - 1).Copy Range("G" & i)
        Application.EnableEvents = True
    End If
    On Error GoTo 0
End Sub
Any help is appreciated.

Cheers

Adam