Relative code vs absolute code

There are about 3 lines of the following code I need help making relative. I have attached the spreadsheet. Thanks.

Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E145")
    Range("E2:E145").Select

Range("A13").Select
    Selection.End(xlDown).Select
    Range("A147:A156").Select
    Selection.ClearContents