Como sempre disponibilize o arquivo para melhor entendimento.

Eu tentei reproduzir e pelo que entendi o excel nao seleciona a forma qdo esta oculta.

Alguma maneira de contornar isso ?

Acho que nao

Clica em ADD para inserir uma linha ( Estará indo com o sinal antes de ocultar ) e depois oculta a linha 1 e volta clicar no ADD e verá que o sinal de + não vai

Para copiar Formas deve ser esse código, pois agora preciso saber como encaixar

ActiveSheet.Shapes(“imagem1”).Copy

Alguém sabe como copiar um shape oculto e inserir em outra linha ?

Obrigado desde já !

Quem tiver solução eu pago, só mandar no privado o valor

Obrigado desde já !

Boa noite,

Veja se, com esta alteração, funciona do jeito que quer:

Sub InserirLinha()
    Dim wsAtiva As Worksheet
    Dim UltL    As Long

    Set wsAtiva = ThisWorkbook.ActiveSheet
    UltL = Application.WorksheetFunction.Max(10, wsAtiva.Cells(Rows.Count, 2).End(xlUp).Row)
    
    Application.ScreenUpdating = False
    Rows(1).Hidden = False
    
    wsAtiva.Range(Cells(1, 1), Cells(1, 7)).Copy: wsAtiva.Cells(UltL + 1, 1).Insert Shift:=xlDown
    
    Rows(1).Hidden = True
    Application.ScreenUpdating = True
    
    wsAtiva.Cells(UltL + 1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 1
    wsAtiva.Cells(1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 2
   
    Application.CutCopyMode = False
    Set wsAtiva = Nothing
   
End Sub

Abraço

Deu certo amigo !
Quanto é ?

Não é necessário pagar.
Fico feliz que tenha funcionado.

Abraço

Muito obrigado !