Change code to look for current worksheet?

I need help changing code to look for the current worksheet. Excel is looking for the worksheet I used while creating the macro.

This is what the code currently looks like:

Sub LAUREN3()
'
' LAUREN3 Macro
'

'
    Columns("E:E").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "CAR MARK"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
    Selection.AutoFill Destination:=Range("E2:E2574")
    Range("E2:E2574").Select
    Columns("E:E").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:L2574").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("EDITED3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EDITED3").Sort.SortFields.Add Key:=Range( _
        "B2:B2574"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("EDITED3").Sort
        .SetRange Range("A1:L2574")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With