Se a imagem não carregar, segue o link: https://uploaddeimagens.com.br/imagens/ ... -png--4840

Edite o título do seu tópico e deixe apenas Copiar, localizar e colar. Isso facilita na busca para outras pessoas.
Quando quiser anexar imagem, uma possibilidade é clicar em adicionar um anexo.

Option Explicit

Sub TESTE()

Dim QUADRO As Range

Set QUADRO = Plan1.Range("C12:L16")

QUADRO.Cells.ClearContents
    
    Dim SEMANA As Integer
    
    SEMANA = Plan1.Range("B1").Value
    
    Dim VALORES As Range
    
    Set VALORES = Plan1.Range("A3:A7")
    
    Dim NUMEROSEMANA As Range
    
    Set NUMEROSEMANA = Plan1.Range("C11:L11")
    
    Dim CL As Object
    Dim CL2 As Object
    Dim I As Integer
    For Each CL In NUMEROSEMANA.Cells
        
        If CL.Value = SEMANA Then
            I = 1
            For Each CL2 In VALORES.Cells
                
                Plan1.Cells(I + 11, CL.Column).Value = VALORES(I, 1).Value
                I = I + 1
            Next CL2
            
        End If
        
    Next CL
    
    
    
End Sub

Se você não souber laço de repetição, não saberá nenhuma linguagem de programação:

https://www.youtube.com/results?search_query=la%C3%A7o+de+repeti%C3%A7%C3%A3o

https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o

Se você não souber lógica de programação, não saberá nenhuma linguagem de programação:

https://www.youtube.com/results?search_query=logica+de+programa%C3%A7%C3%A3o

Na próxima vez que abrir um tópico neste fórum (já estou prevendo que serão muitos tópicos), anexe o arquivo da planilha.

Sub ReplicaDados()
 [A3:A7].Copy Cells(12, [B1] + 2)
End Sub

Option Explicit

Sub ReplicaDados()
Dim QUADRO As Range

Set QUADRO = Plan1.Range("C12:L16")

QUADRO.Cells.ClearContents
    
[A3:A7].Copy Cells(12, [B1] + 2)
End Sub

Sub ReplicaDadosV3()
 [C12:L16] = "": [A3:A7].Copy Cells(12, [B1] + 2)
End Sub