Macro below specific to a single Worksheet?

You could add the appropriate sheet reference.

For example to make it refer to Sheet1.

Sub CopyTrend()
Dim column_number As Long

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

        column_number = .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 With

End Sub