SplitDates

Sub SplitDateUp()
Dim lstRw As Long
Dim i As Long

lstRw = Range("A" & Rows.Count).End(xlUp).Row

For i = lstRw To 2 Step -1
    Cells(i, 2) = Year(Cells(i, 1))
    Cells(i, 3) = "'" & Format(Cells(i, 1), "mm-mmm")
    Cells(i, 4) = Year(Cells(i, 1)) & "-" & Evaluate("=WEEKNUM(A" & i & ")")
    Cells(i, 5) = Format(Cells(i, 1) - DateSerial(2018, 1, 1), "0")

Next i

End Sub