Speed Me UP!!!!!!

[Eraengineer]

Is there a way to speed this up or at least shorten it? I recorded this macro and removed all the .selects and now I was wondering if there was something I could do with the .clearcontents like run it in a "with" ? I just would like to make this perform faster.

Sub Clear()
'
' Macro3 Macro
'
Application.ScreenUpdating = False

Range("L3:P3", Selection.End(xlDown)).ClearContents

'''Clear the Notes column'''

Range("Q3:Q3", Selection.End(xlDown)).Offset(0, 1).ClearContents

'''Clear the position column'''
Range("Table1[Position (Decline or Accept)]").ClearContents

'''Clear CIPP column'''

Range("C3:D3", Selection.End(xlDown)).ClearContents

Range("A3:B3").ClearContents

End Sub