Runtime Error - Type Mismatch when copying and pasting cells in sheet with macros

I have the following code below in a specific Sheet (A1) and if I copy and paste values in this sheet I get a Runtime error - Type Mismatch.

Can anyone help?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("$A$1:$O$100")) Is Nothing Then
            Sheets("Alt_Runsheet").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
            Sheets("Runsheet").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
            Sheets("Breakouts").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
    Else
            Sheets("Runsheet").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
            Sheets("Alt_Runsheet").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
            Sheets("Breakouts").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
            
End If

Dim wsSheet As Worksheet
        On Error Resume Next
        Set wsSheet = Sheets("Cost Breakdown (LS)")
        On Error GoTo 0
        If Not wsSheet Is Nothing Then
        
If Not Intersect(Target, Range("$A$1:$O$100")) Is Nothing Then
    Sheets("Cost Breakdown (LS)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
Else
    Sheets("Cost Breakdown (LS)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
End If
Else
    If Not Intersect(Target, Range("$A$1:$O$100")) Is Nothing Then
        Sheets("Cost Summary (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
        Sheets("Alt Breakdown (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
        Sheets("CO-PCO Runsheet (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
        Sheets("CO Breakdown (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Hidden = (Target.Value = "No" Or Target.Value = "NO" Or Target.Value = "no")
    Else
        Sheets("Cost Summary (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
        Sheets("Alt Breakdown (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
        Sheets("CO-PCO Runsheet (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
        Sheets("CO Breakdown (CM)").Rows(CStr(Target.Row) & ":" & CStr(Target.Row)).EntireRow.Unhidden = (Target.Value = "Yes" Or Target.Value = "YES" Or Target.Value = "yes")
    End If
End If

End Sub