Input box - cancel button

Hello All,

I need some help writing a few lines that exits the sub if the users clicks the cancel button...........tried and am failing miserably!

Sub SelectData()
    Dim s_row As Integer
    s_row = 14
    s_row = InputBox("ENTER ROW NUMBER FOR THE JOB YOU WERE AWARDED", "CREATE ACTIVE JOB")
      
    Sheets("ACTIVE JOBS").Unprotect "123"
    
    Set rng = Sheets("ACTIVE JOBS").Range("A6:R6")
    rng.Copy
    rng.EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
    
    Sheets("SALES PIPELINE").Range("A" & s_row & ":B" & s_row).Copy _
                Destination:=Sheets("ACTIVE JOBS").Range("A7:B7")
  
    
    With Sheets("ACTIVE JOBS")
        .Protect "123"
        .EnableSelection = xlUnlockedCells
    End With
    
        
End Sub