Why the type mismatch error?

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Target.Cells.Count > 1 Or Target.Value <> "N/A" Then Exit Sub 'adding On Error 
'       Resume Next made this work, but why do I get a runtime error 13 type mismatch
'       error on this line?

    If Not Intersect(Target, Range("C10,C11,G10,G11,C17,C18,C21,C37,C38,C41,C42,C45,C46,C63,C64")) Is Nothing Then
        
        If Not Intersect(Target, Range("C10,C11")) Is Nothing Then
            Range(Target.Offset(0, 1), Target.Offset(0, 3)).Value = "N/A"
        End If

etc etc etc