Paul, I am a lazy typist. 
 Dim WsF as Object
Set WsF = Applcation.WorksheetFunction
'
'
.Cells(14).Value = "WK" & Wsf.WeekNum(.Cells(2).Value)
For daily use 
Sub AddData(Optional NewData As Range)
'
'
If Not NewData is Nothing Then NewData.Select
    If Not TypeOf Selection Is Range Then Exit Sub 
'
'
Public Sub Run_AddData_On_NewData()
Dim NewData As Range
Set NewData = AppropriateColumn.Find(First Formula) 'Edit to Code
Set NewData = Range(NewData, NewData.End.(xlDown))

AddData NewData

End Sub