Macro para acrescentar informação após a ultima linha escrita

Boa tarde,

Preciso da vossa ajuda para concluir um código do meu ficheiro de análise.
Basicamente tenho a sheet3 (onde tenho os dados que quero ir buscar), e tenho a sheet4 (onde quero colar os dados da sheet3, especificamente só a "película decorativa").

A questão é que a sheet3 vai diariamente sendo atualizada, e quero atualizar a sheet4 com novos dados de película decorativa, mas sem apagar as que tinha no passado.
Ou seja, quero colar para a sheet4 na primeira linha vazia..
Mas não consigo encontrar o código certo???
Podem me ajudar,sff?

O código (este código cola sempre na sheet4 a partir da linha 2)

Código:

Sub estOnze()
'
' estação 11
   
    ultimalinha = Sheet3.Cells(Rows.Count, "a").End(xlUp).Row
    ultimacoluna = Sheet3.Cells(1, Columns.Count).End(xlToLeft).Column
   
    linha = 2
   
    For x = 2 To ultimalinha
        If Sheet3.Cells(x, 1) = "Película decorativa|falta" Then
            For i = 1 To ultimacoluna
            Sheet4.Cells(linha, i) = Sheet3.Cells(x, i)
            Next
            linha = linha + 1
        End If
    Next
End Sub

Boa tarde!!!

Seria bom que postasse seu arquivo modelo.

Deposite-o em site gratuito como sendspace.

Att