Workbooks.Open Filename:="C:\Data\GLIF\2148.xls"
Windows("2148.xls").Activate
Application.Run "2148.xls!NextDay"
ActiveWorkbook.Save
ActiveWorkbook.Close
NextDay macro is as under:
Sub NextDay()
Sheets("Summary").Select
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("C6:C45").Select
Range("C45").Activate
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
ActiveWorkbook.Save
End Sub