Quitting a macro after error is detected?

Hi - I have the following VBA and need to add some code at the end of the line to Quit the Macro after “err.Clear” at present it proceeds to the next lines until the end.

Can anyone help?

Sub Paste_Data()

    Application.ScreenUpdating = False
    Sheets("Dump").Select
    Range("C2").Select
    On Error Resume Next
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False
        If err Then MsgBox "That was too quick !! You need to copy the data again." : err.Clear
    Range("C2").Select
    Sheets("Main Page").Select
    Range("K4:Q6").Select
     Application.CutCopyMode = False
    
End Sub

Ta

Hans

Do you mean like

Sub Paste_Data()

    Application.ScreenUpdating = False
    Sheets("Dump").Range("C2").Select
    On Error Resume Next
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False
        If Err.Number <> 0 Then
            MsgBox "That was too quick !! You need to copy the data again."
             Err.Clear
             Exit Sub
         End If
       
    Range("C2").Select
    Sheets("Main Page").Select
    Range("K4:Q6").Select
     Application.CutCopyMode = False
    
End Sub

?