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