Agrupar linhas usando macro

[Marcos Pensador]

Boa tarde

Tenho uma planilha que tem inumeras linhas, das quais quero agrupar algumas após uma determinada frase (Totais).

 

Resumindo, preciso que as 3 linhas que estão no quadrado preto da imagem fiquem numa só sempre que aparecem, mas esse "mesmo quadrado" aparece inumeras vezes ao longo da planilha

[vagnersouza1976]

Marcos,

 

Boa tarde !!!

 

Veja se código atende ...

 

Sub Agrupar_Linhas()

 

Finalrow = Cells(Rows.Count, 6).End(xlUp).Row

 

Application.ScreenUpdating = False

 

For I = 2 To Finalrow

 

    If Cells(I, 9) = "Total" Then

    

    Cells(I, 9).Select

    ActiveCell.Offset(1, -5).Select

    Selection.Cut

    ActiveCell.Offset(-1, 0).Select

    ActiveSheet.Paste

 

    ActiveCell.Offset(2, 2).Select

    Selection.Cut

    ActiveCell.Offset(-2, 0).Select

    ActiveSheet.Paste

    

    ActiveCell.Offset(1, 6).Select

    Selection.Cut

    ActiveCell.Offset(-1, 0).Select

    ActiveSheet.Paste

        

    End If

 

Next I

 

Application.CutCopyMode = False

    

Application.ScreenUpdating = True

 

End Sub

 

Segue link para acesso a planilha:

 

https://www.sendspace.com/file/cfp43g