Macro below specific to a single Worksheet?

Hello,

How can I make the Macro below specific to a single Worksheet?

Sub CopyTrend()

Range("E3:F22").SORT Key1:=Range("F3"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Dim column_number As Long
column_number = ActiveSheet.Cells.Find(What:="*", After:=Range("IV65536"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
Range(Cells(3, column_number), Cells(22, column_number + 1)).Value = Range("E3:F22").Value

End Sub

Thanks!