Victor, tem de Localizar a Plan referente ao Mes, a Semana e depois a linha a com o dia da semana, até ai eu entendi, o que você não disse é sobre a possibilidade de se lançar o dia da semana errada, que é o que acontece com sua rotina na questão do lançamento, então precisamos resolver esta parte primeiro.

Por outro lado, como disse:
"O problema é a semana 2... se fosse só a semana 1 seria facil eu acho, eu já vi vários código que poriam alterar facilmente.. na minha plan original tenho semana 1.. até semana 4"
Faça o seguinte construa esta que diz ser fácil e que já teria a solução, que a partir deta as outras semanas seriam só questão de adaptação e ajustes, depois poste aqui que auxilio, no momento não tenho como recriar todas as instruções.

[]s

Coloquei esse codigo no CASE e ta funcionando perfeito

        UltimaLinha = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    If UltimaLinha < 3 Then UltimaLinha = 3
    
        For i = 3 To UltimaLinha
        If Range("A" & i).Value = TextBox1.Text Then
        
            Range("B" & i).Value = TextBox2.Text
            Range("C" & i).Value = TextBox3.Text
            Range("D" & i).Value = TextBox4.Text
            Range("E" & i).Value = TextBox5.Text
                
            Exit For
        End If
    Next
        
    MsgBox ("Atualizado com Sucesso")

Link Arquivo: https://dl.dropboxusercontent.com/u/165 ... estes.xlsm