Merging VBA Code together?

[vbabasic]

Forgive me, because the past two weeks have been my first venture into VBA, so I'm very new at this (and this forum, which has been super helpful!).

If I understand correctly, you cannot add two separate instances of something like...

Private Sub Worksheet_Change(ByVal Target As Range)

...because it will throw an "ambiguous" error.

So then, how do you successfully merge two separate of these codes without them interfering with each other?

I have a ton of different codes going on in multiple sheets as well as the Workbook which are all currently working via mostly trial and error, but I've tried to add in this one tiny piece of code to an existing Worksheet_Change, but it either doesn't work or breaks everything else (or both).

Example of script I want to add:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
    If Cell.Column = Range("AR:AR").Column Then
        If Cell.Value <> "" Then
            Cells(Cell.Row, "F").Value = Int(Now)
        Else
            Cells(Cell.Row, "F").Value = ""
        End If
    End If
Next Cell
End Sub

Example of existing script:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AP:AP")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("Former").Cells(Rows.Count, "AP").End(xlUp).Row + 1
  On Error GoTo ErrLoc
  
Application.EnableEvents = False
ActiveWorkbook.Save

If Target.Value = "Clear" Then
Rows(Target.Row).Copy Destination:=Sheets("Former").Rows(Lastrow)

End If

If Target.Value = "Remove" Then
Rows(Target.Row).Copy Destination:=Sheets("Former").Rows(Lastrow)
Rows(Target.Row).Delete
End If
End If

ErrLoc:
Application.EnableEvents = True

End Sub

 

[vbabasic]

For this one, I ended up just doing a function module which works well enough for what I'm trying to achieve, but I'm still curious as to how I could have made the above work.

Function Updating_Date(dependent_cell As Range) As Date
  Updating_Date = Date
End Function

=Updating_Date(F4)

 

[dmt32]

Hi,
not fully tested but see if this update to your original idea does what you want

Option Base 1
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lastrow     As Long
    Dim m           As Variant
    Dim Cell        As Range, rng As Range
    Dim wsFormer    As Worksheet
    
    On Error GoTo ErrLoc
    
    Set wsFormer = ThisWorkbook.Worksheets("Former")
    
    Set rng = Me.Range("AP:AP,AR:AR")
    
    If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Err.Raise 70
    
    If Not Intersect(Target, Me.Range("AP:AP,AR:AR")) Is Nothing Then
        Application.EnableEvents = False
        
        If Not Intersect(Target, rng.Areas(1)) Is Nothing Then
        
            'column AP
            ActiveWorkbook.Save
            
            m = Application.Match(Target.Value, Array("Clear", "Remove"), 0)
            Lastrow = wsFormer.Cells(wsFormer.Rows.Count, "AP").End(xlUp).Row + 1
            
            Me.Rows(Target.Row).Copy Destination:=wsFormer.Rows(Lastrow)
            If Not IsError(m) And m = 2 Then Me.Rows(Target.Row).Delete
            
        Else
        
            'column AR
            Me.Cells(Target.Row, "F").Value = Int(Now)
            
        End If
    End If
    
ErrLoc:
    Application.EnableEvents = True
    
End Sub

Always make a backup before testing new code

Hope helpful

Dave