Prevent sub from running if next active cell is in the same row

As the title says I've googled and come up with the below but get an Object Require 424 error

Sub test()

If ActiveCell.Row = CurRow.Row Then Exit Sub

If Not Intersect(ActiveCell, Range("A2:K50")) Is Nothing Then
    
     
    With ActiveSheet.Shapes.Range(Array("tree_ccp"))

         .Top = ActiveCell(0, 12).Top
       
    End With
    
   End If


End Sub

Sub Worksheet_Change(ByVal Target As Range)
Dim CurRow As Range
Set CurRow = ActiveCell

End Sub

I expect its something simple but I can't puzzle it out

John