VBA para agrupar resultados sem excluir linhas (Resolvido)

[Marco_Bertolani]

Caros,

Tenho uma planilha que calcula média de resultados que estão na coluna A a cada 3 linhas e os resultados ficam separados, com linhas vazias entre eles, na Coluna B. Alguém conhece uma macro que faça com que os resultados da coluna B se agrupem, deixando de existir linhas vazias entre eles, porém, sem excluir linhas, apenas movendo os valores?

Abs.

Marco.

[netocasaroli]

Marco,

O código abaixo seleciona apenas a área de dados da coluna B e exclui as células em branco, sem excluir a linha inteira. Veja se te ajuda. Qualquer dificuldade, posta aí...

Sub AgrupaValores()

Dim uLinha As Long

uLinha = Plan1.Cells(Rows.Count, 2).End(xlUp).Row

Plan1.Cells(2, 2).Resize(uLinha - 1, 1).SpecialCells(xlCellTypeBlanks).Delete

End Sub

[Marco_Bertolani]

Perfeito! Grato!