Excel VBA Código adicionar linha

[João Cassiano]

Bom dia pessoal, criei uma macro que seleciona toda a linha, copia, insere uma linha e cola na linha inserida o conteúdo da linha copiada (a linha de cima no caso)

Porém, quando eu estou utilizando filtro na minha tabela, quando eu rodo a macro ela não copia as células da linha anterior, ela apenas insere uma linha em branco.

Alguém poderia me ajudar? Obrigado.

 

Sub AddLine()

'
' AddLine Macro
''Selecione a linha antes de executar
    With Selection.EntireRow
        .Copy
        .Insert
    End With
    Application.CutCopyMode = False
End Sub

 

[CasaDoHardware]

O ideal é fazer isso sem o filtro.