With t3
Dim lngLastRow As Long
Dim lngCounter As Long
Application.ScreenUpdating = True
lngLastRow = Range("D1").End(xlDown).Row
For lngCounter = lngLastRow - 2 To lngLastRow
Cells(lngCounter, 1).Formula = "=YEAR(TODAY())"
Next lngCounter
Application.ScreenUpdating = True
Dim z As Long
Dim lz As Long
lz = Range("D65536").End(xlUp).Row
If Range("D65536") <> "" Then lz = 65536
On Error Resume Next
For z = Cells(Rows.Count, 4).End(xlUp).Row - 2 To lz
Cells(z, 2).value = "=VLOOKUP(RC[2], Datum, 9, 0)"
Next z
For z = Cells(Rows.Count, 4).End(xlUp).Row - 2 To lz
Cells(z, 3).value = "=WEEKNUM(RC[-1],1)"
Next z
End With