Sort, copy paste to new work sheet

I am trying to open a workbook and sort a table based on a year it occured and then copy that table to another worksheet. Here is the code I started and I can seem to get it going. I know I've made a few mistakes so any help would be appreicated. Thanks

Sub Get_Data()

' Copy Data from SOA

    Workbooks.Open Filename:="S:\Budget\SoaRpt\SOA.xlsm"
    Sheets("Data").Select
End Sub

' Sort data
Sub sort()
    Range("H1:H1550") = "10&1011"
    Range("A1:S1550").Select
    Selection.Copy
    Windows("General Funds.xls").Activate
    Sheets("Data").Select
    Range("A1").Select
    Sheets("Data").Paste
    Windows("SOA.xlsm").Activate
    ActiveWindow.Close
End Sub

It was a long day. All I need to do is add another autofilter from a previous macro.