Sub addDates()
Application.ScreenUpdating = False
Dim i As Integer
Dim z As Integer
Dim StartingDate As Variant
'ActiveSheet.ShowAllData
range("A6:A3000").Select
Selection.ClearContents
StartingDate = Sheet1.range("stopdate").Value
Sheet1.range("A6").Value = Sheet1.range("stopdate").Value
z = Sheet1.range("tradingdays").Value
range("A7").Select
ActiveCell.Offset(-1, 1).FormulaR1C1 = "=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"
For i = 1 To z
ActiveCell.FormulaR1C1 = "=+R[-1]C-1"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"
ActiveCell.Offset(1, 0).Select
Next i
'change to numbers(values)
range("A6").Select
range(Selection, Selection.End(xlToRight)).Select
range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
range("A6").Select
End Sub