Como inserir um loop dentro de uma Macro já existente?

Question

É uma macro bem simples.

Eu trabalho com duas planilhas de excel.

Em uma planilha estão os dados que eu preciso extrair e na outra planilha é onde vou armazenar os dados de forma consolidada.

A macro está funcionando corretamente, mas eu preciso clicar em executar até que não exista mais nenhuma sheet para deletar.

Preciso de um loop para fazer a macro voltar ao começo e executar até terminar.

Uma opção seria informar quantas vezes quero que ela volte ao inicio antes de terminar.

Podem me ajudar.

Vou colocar a macro aqui para ajudar a compreender.

---

Sub Consolidated_Inventory()

'

' Consolidated_Inventory Macro

'

    Range("A20:A22").Select

    Selection.Copy

    Windows("Export HP's Configurationsv2.xls").Activate

    Sheets("Consolidated Inventory").Select

    Range("E1").Select

    ActiveSheet.Paste

    Range("A2").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=MID(R[-1]C[4],17,11)"

    Range("B2").Select

    ActiveCell.FormulaR1C1 = "=MID(RC[3],18,11)"

    Range("C2").Select

    ActiveCell.FormulaR1C1 = "=MID(R[1]C[2],15,100)"

    Range("A2:C2").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("E1:E3").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Rows("2:2").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("A2").Select

    Windows("MULTI-Export HP's Configurations.xlsm").Activate

    Range("A1").Select

    Application.DisplayAlerts = False

    ActiveWindow.SelectedSheets.Delete

    End Sub

Answer 1

Olá Lúcio HenriqueMarques, tudo bem?

Obrigado por entrar em contato com a Comunidade Microsoft!

Para obter mais informações sobre Macros e detectar possíveis falhas acesse o Portal do MSDN, lá poderá Fazer uma perguntaespecificamente sobre Macros e receber respostas direcionadas.

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até mais!