corregir Macro

¡ Hola !
Tengo una macro , con las siguientes lineas
Row = 12
Worksheets("Limonada").Range("F11").Value = "Week"
Do Until Worksheets("Limonada").Range("A" & Row).Value = ""
If Worksheets("Lominada").Range("E" & Row) = "Previous period" Then
If WeekNumber([today()], 1) < 10 Then
Worksheets("Limonada").Range("F" & Row).Value = Year([today()]) & "0" & WeekNumber([today()], 1)
Else
Worksheets("Limonada").Range("F" & Row).Value = Year([today()]) & WeekNumber([today()], 1)
End If
Else
If WeekNumber(Worksheets("Limonada").Range("E" & Row), 7) < 10 Then
Worksheets("Limonada").Range("F" & Row).Value = Year(Worksheets("APS Report").Range("E" & Row)) & "0" & _
WeekNumber(Worksheets("Limonada").Range("E" & Row), 7)
Else
Worksheets("Limonada").Range("F" & Row).Value = Year(Worksheets("APS Report").Range("E" & Row)) & _
WeekNumber(Worksheets("Limonada").Range("E" & Row), 7)
End If
End If


Pero tengo el siguiente problema , esta macro pone en la columna F el año y la semana correspondiente a la de la fecha que se encuentra en la columna E , pero cuando encuentra una fecha de la semana en curso , pone que la semana que le corresponde es la semana anterior .
*Y necesito que cuando encuentre alguna fecha de la semana encurso , me ponga el numero de la semana correcta tal y como se muestra en el siguiente ejemplo:

Alguien puede ayudarme y decirme como corrijo este error en el codigo

Columna E Columna F
Period Week
Previous period 201513
23-03-15 201512 El dato correcto deberia ser 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
Previous period 201513
30-03-15 201513
06-04-15 201514
13-04-15 201515

Gracias