How can I copy data from one workbook and create another workbook?

How can I copy data from one workbook and create another workbook?

i would like to know how can i copy data from one workbook and paste it into another workbook. Note - 'Another workbook' contains a specific format in which data should be pasted and the first workbook is humongous source of data ,so i should be able to go to a specific tab ,unhide hidden columns,apply date filters,remove the data not needed and then paste the remaining fields and data in second workbook

Even after 4 hours this is all i am able to do(no coding experience,never wrote a code before,this is my first time ) ,but this code sucks(user specific/machine specific) ,it worked 3-4 times and now it has stopped working. Please help ,please help, PLEASE HELP!

Option Explicit 

Sub EventsForTomorrow()
'
' EventsForTomorrow Macro
' This macro will fetchevent scheduled for tomorrow data from AIX workbook
'
' Keyboard Shortcut: Ctrl+Shift+E
'
    Workbooks.Open Filename:= _
        "C:\Users\agoel5\Desktop\2015 AIX Integrated Workbook and Schedule.xlsb"
    Range("A11").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveSheet.ListObjects("Review_Dates").Range.AutoFilter Field:=2, Criteria1 _
        :=xlFilterTomorrow, Operator:=xlFilterDynamic
    Columns("A:BD").Select
    Selection.EntireColumn.Hidden = False
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:L").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:J").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    Columns("J:AL").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    Range("Review_Dates[[#Headers],[Planned Date]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A3:I14181").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open Filename:= _
        "C:\Users\agoel5\Desktop\Events for tomorrow format.xlsx"
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Range("G10").Select
End Sub

Workbook - review Dates tab.pngReview Dates Tab - Date Filter - Tomorrow.pngSpecified format for the data.png