This can be done in one of two ways. If both the line and arrow always move together, the first thing you want to do is to select each one and, under the Drawing Tools menu, select Group. With both of them selected, go over to the name bar and change the name from the default "Group n" to PointToday.
Now in the Workbook_Open event, place this code:
Private Sub Workbook_Open()
Const ShiftBoth = 6.1
The constant, ShiftBoth, was set to 6.1, based on your screenshot showing a single letter in each column name. If the line and arrow move too much, realign them to the previous day, reduce the constant, save the workbook and close it. Re-open to test the new distance.
The second way is required if, for some reason, the line and arrow move independently. In this case, you need a separate set of instructions. However, the increment really can't be calculated. Instead, you will have to use Selection.ShapeRange.Left = value, where value is calculated as some constant, multiplied by the number of days from Day 1.