Excel Copiar somente células com valores e inserir adiante.

[Willykz]

O intuito desta planilha se refere a um histórico. 

A cada vez que um produto é contado há uma observação dele, no qual é adicionada em sua linha. Todavia, de maneira simples seria a inserção da coluna inteira e apenas copiar a coluna de observações e colar especial, mas disso está andando também os itens que não tiveram observação.

 

Existe um VBA que possa agir da seguinte forma: selecionar e copiar as células que possuam valor (sem fórmula) na coluna E e logo inserir somente essas células nas linhas respectivas e colá-las de modo que siga adiante o histórico anterior sem interferir nas linhas que não estão com observações?

 

Segue print: 

[Willykz]

Improvisei este VBA para uma única célula. É possível que seja estendida para todas a células e suas respectivas linhas?

 

Cód:

Sub atualizar()
Dim contagem As String
contagem = Range("E8")

If contagem = "N" Then

Else
    Range("F8:CP8").Select
    Selection.Cut
    Range("G8").Select
    ActiveSheet.Paste
    Range("E8").Select
    Selection.Copy
    Range("F8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Application.CutCopyMode = False
    Range("CQ1:CQ50000").Select
    Selection.ClearContents
    Range("A1").Select
    
    
    End If
    

End Sub