How to use macros that can work on different Worksheets

I'm pretty novice at programming Macros and coding VB so this is must be very basic question but I can't figuring it out by myself. I have recorded a Macro that moves and arranges some cells around my worksheet .it works wonderful until I tried to apply this Macro on another worksheet and then it stopped working right were the file name of the previous document was. My question is how to replace the filename in the macro with a veritable or current worksheet statement so it will work always with every file that I want.

Example:

Range("P2:P240").Select
    ActiveWorkbook.Worksheets("Download (6)").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Download (6)").Sort.SortFields.Add Key:=Range("P2" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Download (6)").Sort
        .SetRange Range("A2:AT17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Remember CODE /CODE tagswhen posting code on the forum. Thanks. Fixed abive.

Maybe like so:

    With ActiveSheet
        .Range("P2:P240").Select
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("P2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange .Range("A2:AT17")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With

Range("P2:P240").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("P2" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A2:AT17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Try this code? I just changed Worksheets("Download (6)") to ActiveSheet.

Assuming that column is column D, this is how I would do that, we delete all the found rows all at once at the end.

Option Explicit

Sub DeleteRows()
Dim delRNG As Range, cell As Range

For Each cell In ActiveSheet.Range("D:D").SpecialCells(xlConstants)
    If InStr(cell.Value, "ShipSvc:USPS") > 0 Then
        If delRNG Is Nothing Then
            Set delRNG = cell
        Else
            Set delRNG = Union(delRNG, cell)
        End If
Next cell

If Not delRNG Is Nothing Then delRNG.EntireRow.Delete xlShiftUp

End Sub

Your welcome SteveBA. I'm glad that worked for you.

Try JBeaucaire's suggested code above and let us know if it works also (and try to mark the thread as solved if this concludes the issue).