upon further testing i realized that this new code is interfering with me existing code,

whenever i try to run this:

Sub Row1Copy()

Dim Answer As String
Dim MyNote As String

'Place your text here
    MyNote = "Vil du flytte raden til ferdige oppgaver?"

    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")

    If Answer = vbNo Then
        'Code for No button Press
        Exit Sub
    Else
        'Code for Yes button Press
        Sheets("Aktive Oppgaver").Activate
        Range("A15:L15").Select
        Selection.Copy
        Sheets("Ferdige Oppgaver").Activate
        Rows("15:15").Select
        Selection.Insert Shift:=xlDown
        Sheets("Aktive Oppgaver").Activate
        Range("K15").Select
        Selection.EntireRow.Select
        Selection.ClearContents
        
        End If
        Call RemovePic1
I get the error message: run time error 13 type mismatch

and when i click debug i'm pointed to:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A15:A77,L15:L77")) Is Nothing Then Exit Sub

If Target = 0 Then
   Target.NumberFormat = "dd.mm.yy"
   Target.Value = Date
End If
End Sub
The part in bold is the part that is yellowed out. I'm assuming something here is interfering with my code running properly.