VBA 다중 조건 검색 값에 따라 특정 쉘을 복사 하여 원하는 위치에 붙여놓기

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet

    ' 원하는 시트를 지정합니다. 시트 이름에 따라 수정하세요.
    Set ws = ThisWorkbook.Sheets("TRAIFF1")
    With ws
      ' M4, M5, N4 값이 변경될 때만 붙여넣기 및 서식 포함 붙여넣기를 수행합니다.
      If Intersect(Target, .Range("M4,M5,N4")) Is Nothing Then GoTo EXIT_RUN
      
      '//대상영역 지우기
      .Range("T4:W4").ClearContents
      
      '//복사
      If Application.Product(.Range("M4,M5,N4")) <> 0 Then
          .Range("T18:W18").Copy .Range("T4")
      ElseIf Application.Product(.Range("M4,M5")) <> 0 Then
          .Range("T17:W17").Copy .Range("T4")
      ElseIf .Range("M4") <> 0 Then
          .Range("T16:W16").Copy .Range("T4")
      End If
    End With
    
EXIT_RUN:
    Set ws = Nothing
End Sub