Sub Get_New_Data()
'
' Get New Data button
'
'
Range("A1").Select
Windows("Calculation WORKBOOK.xls").Activate
Columns("G:M").Select
Selection.Copy
Windows("Monthly Data.XLS").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Range("A1:G100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Bookmarks