Macro takes 20 seconds to run, can anyone please help to make it more efficient?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AB8:AJ21")) Is Nothing Then
'Application.ScreenUpdating = False
'Dim mysheet
'Dim mycell
On Error Resume Next
mysheet = ActiveSheet.Name
mycell = ActiveCell.Address
    Sheets("Myformat").Range("Pay").Copy
   Sheets("Sheet1").Range("AB8").PasteSpecial xlPasteFormats
'Worksheets("sheet1").Range("AB8").Select
Sheets(mysheet).Range(mycell).Select
End If
'Application.ScreenUpdating = True
 End Sub