Prezados (a), boa tarde!

Alguém poderia me ajudar?

Preciso de uma macro para analisar os dados de uma planilha e remover células em branco sempre que achar.

Eu tentei criar uma macro mas não está dando certo.

Eu estou anexando a planilha para um melhor entendimento.

Minha macro que tentei usar:

Sub teste()
'
' teste Macro
'

'
    Range("B2").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
'    Range("B7").Select
    ActiveCell.Offset(-1, 0).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveCell.Offset(1, 0).Select
'    Range("C7").Select
    Selection.End(xlUp).Select
    Range("B1").Select
    Selection.End(xlDown).Select
End Sub

Desde já agradeço pela atenção de todos, muito obrigado!