Olá pessoal, já criei um tópico parecido, mas já foi resolvido e trancado, e agora apareceu mais incremento para facilitar minha vida, por favor preciso da ajuda de vocês.
Já tenho a macro para selecionar a coluna que corresponde a data com referencia a célula "A2", copiando o intervalo que determinei e cola nesta mesma, agora preciso que a macro após selecionar a data na célula "A2" verifique se esta data pertence a semana S1, se for a cópia permanece normalmente copiando o intervalo E4:E14 e cola na data correspondente a primeira semana, caso não for será necessário somar a % Realizada célula "$E4" com a %R célula "G4" para dar o resultado acumulado na semana selecionada na célula "A2", e assim fazendo o loop.

Sub Action() ' Macro para após selecionar a data ma célula "A2", ela busca a coluna que tem a mesma referencia e cola 

    Dim dMes2 As Date, cfind As Range
    Dim rIntervalo2 As Range
    Set rIntervalo2 = Range("E4:E14")

Application.ScreenUpdating = False
    With Worksheets("Plan1")
        dMes2 = .Range("A2").Value
        rIntervalo2.Copy
      
            Set cfind1 = .Range("G2:XFD2").Find(what:=CDate(dMes2), LookIn:=xlValues, lookat:=xlWhole)
            If Not cfind1 Is Nothing Then
                cfind1.Offset(2, 0).PasteSpecial xlPasteValues
            End If
            
    End With
              
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

silvajmp