Boa tarde!!

Use um loop!!
https://www.google.com.br/search?q=loop ... ndo.com.br

Att

Boa tarde,

Não consegui nenhum loop... não sei como usá-lo.

Boa tarde!!

Eu não entendi muito bem, você pretende repetir várias vezes essa ação ou o código deve percorrer com essa ação outras células ?

Poste seu arquivo modelo!!

Att

pretendo repetir varias vezes esta ação.

Veja como é a macro hoje. Se ela tivesse um comando de repetição eu não precisaria colocar ela linha por linha, da linha 19 a linha 50 eu fiz.

Não consegui anexar o arquivo, ele tem 300Kb e o limite é 100Kb.

Sheets("Resumo").Select
    Range("A19").Select
    Selection.Copy
    Sheets("Detalhado").Select
    Range("G2:I2").Select
    ActiveSheet.Paste
    Sheets("Resumo").Select
    Range("F19").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
    Range("F19").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Sheets("Resumo").Select
    Range("A20").Select
    Selection.Copy
    Sheets("Detalhado").Select
    Range("G2:I2").Select
    ActiveSheet.Paste
    Sheets("Resumo").Select
    Range("F20").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
    Range("F20").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    
    Sheets("Resumo").Select
    Range("A21").Select
    Selection.Copy
    Sheets("Detalhado").Select
    Range("G2:I2").Select
    ActiveSheet.Paste
    Sheets("Resumo").Select
    Range("F21").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
    Range("F21").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    
    Sheets("Resumo").Select
    Range("A22").Select
    Selection.Copy
    Sheets("Detalhado").Select
    Range("G2:I2").Select
    ActiveSheet.Paste
    Sheets("Resumo").Select
    Range("F22").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
    Range("F22").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    
    Sheets("Resumo").Select
    Range("A23").Select
    Selection.Copy
    Sheets("Detalhado").Select
    Range("G2:I2").Select
    ActiveSheet.Paste
    Sheets("Resumo").Select
    Range("F23").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
    Range("F23").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Boa tarde!!

Sinceramente não precisa ser dessa forma, há formas melhores de se fazer!

Porque ainda não postou seu arquivo modelo?????????????????????

Att

Não estava conseguindo postar, por causa do tamanho da planilha.

Agora consegui, segue anexo. veja a macro que fiz, preciso simplifica-la.

Boa tarde!!

Veja se ajuda

Sub AleVBA_12079()
    With Worksheets("Resumo")
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A19")
        .Range("F19").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A20")
        .Range("F20").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A21")
        .Range("F21").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A22")
        .Range("F22").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A23")
        .Range("F23").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A24")
        .Range("F24").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
                
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A25")
        .Range("F25").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A26")
        .Range("F26").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        .Range("E19:E26").Value = .Range("E19:E26").Value
    End With
End Sub

Att

Alexandre, bom dia.

A macro está colando sempre o valor da última linha para todas as células da coluna F, para corrigir teria que colar valores para todos os comandos, assim ficaria bem parecido com a macro que fiz.

Acho que não terá jeito mesmo, terá sempre que repetir o comando para cada linha. Acredito que não tem jeito de fazer um comando e criar um loop ou algo mais automático.

    With Worksheets("Resumo")
        Worksheets("Detalhado").Range("G2:I2") = Worksheets("Resumo").Range("A19")
        .Range("F19").Formula = "=IFERROR(VLOOKUP(WORKDAY(R16C3,0),Detalhado!R11C6:R10000C9,4,FALSE),)"
        
    Range("F19").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False