Este fórum está sendo desativado

[SandroLima]

Boa tarde, colegas do fórum.

Tenho essa parte de um código de uma planilha que copia as fórmulas e formatação condicional da linha 2 da tabela e cola na linha 1.
Precisava alterar para copiar somente as fórmulas e a formatação condicional , mas agora da última linha dessa tabela. Como ficaria a alteração?

Código: Selecionar todos

Sub InserirLinha()

    Application.ScreenUpdating = False
        
    Dim TabelaAtividades As ListObject
    
    Set TabelaAtividades = wshAtividadesDiarias.ListObjects("TB_AtividadesDiarias")
    
    On Error Resume Next
    TabelaAtividades.ListRows.Add (1), alwaysinsert:=True
    TabelaAtividades.ListRows(2).Range.Copy
    TabelaAtividades.ListRows(1).Range.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
    
'
'
'
'
     Application.ScreenUpdating = True   
End Sub

[SandroLima]

Consegui resolver aqui dessa maneira:

Código: Selecionar todos

Sub InserirLinha()

    Application.ScreenUpdating = False
        
    Dim TabelaAtividades As ListObject
    Dim ULinha As Long
        
    Set TabelaAtividades = wshAtividadesDiarias.ListObjects("TB_AtividadesDiarias")
    ULinha = TabelaAtividades.Range.Rows.Count
    
    On Error Resume Next
    TabelaAtividades.ListRows.Add (1), alwaysinsert:=True
    'TabelaAtividades.ListRows(2).Range.Copy
    TabelaAtividades.ListRows(ULinha).Range.Copy
    TabelaAtividades.ListRows(1).Range.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
    
'
'
'
'
     Application.ScreenUpdating = True   
End Sub

Obrigado.