Excell, po vyplnění buňky se řádek přesune na druhý list

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Dim aRow As Range
    
    Set aRange = Intersect(Target, Range("E:E"))
    If Not aRange Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For Each aRow In aRange.Rows
            If aRow = "A" Then
                aRow.EntireRow.Copy
                Worksheets("Prodáno").Range("A1").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                aRow.EntireRow.Delete
            End If
        Next aRow
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Eh nějak mi to nechodí - vytvořil jsem Makro(pojmenoval jsem ho aa) a vložil do něj tento text a po vyplnění řádku se nic nestane, po znovuotevření je řádek stále na původním listu. Nebo to cpu do makra špatně?

Losův kód v souboru

Tak zajímavé, doma na notesu to funguje. V práci mám možná bloknutá makra, stahovaná v souboru z netu. Díky za pomoc, teď to zkusím naroubovat do jiné tabulky.

Perfektní, kód funguje (to mně taky máte nakopnout, že ho mám hledat v Zobrazení kódu na oušku listu, ale ještě bych poprosil o úpravu, aby dané přesunutí řádku proběhlo až po uložení respektive zavření stránky. Takto mi to řádek přenese na další list ihned po přesunutí kurzoru na další buňku, do které bych rád dopsal nějaké doplňující údaje. Děkuji

Presuň kód z List1 do ThisWorkbook a takto ho uprav:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim aRow As Range
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each aRow In Worksheets("Sortiment").Range("E:E").Rows
        If aRow = "A" Then
            aRow.EntireRow.Copy
            Worksheets("Prodáno").Range("A1").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            aRow.EntireRow.Delete
        End If
    Next aRow
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Osobně bych to řešil spíš filtrem.

Áno, filtrovanie je na toto vhodnejšie.

Teď už to funguje k mé naprosté spokojenosti. Potřeboval jsem to naimplementovat do podobného souboru, jako je tento použitý příklad a zadařilo se. losovi patří mé velké díky (a i vám ostatním, co jste se mi snažili pomoci).