Excel VBA Daten ausschneiden und einfüge

Hallo,
ich bin relativ neu im Excel VBA schreiben.
Aufgabe ist, das in Spalte H im Reiter "Terminüberwachung" gefiltert werden soll nach "abgeschlossen", wenn da einen Eintrag- gefunden wird soll die komplette Zeile in den Reiter "abgeschlossene Vorgänge" übertragen werden. Immer unter den eventuell bereits vorhandenen Datensatz darunter. Nie überschreiben.
Allerdings soll genau dieser kopierte Eintrag im Reiter "Terminüberwachung" gelöscht werden. Da er sich nun in dem Reiter "abgeschlossene Vorgänge" befindet.
Mein Code funktioniert aber nicht so.

Sub uebertragen()
Dim Variable As String

Variable = ["Terminüberwachung"]

On Error Resume Next

With Sheets(Variable).Range("A2").CurrentRegion
.AutoFilter Field:=8, Criteria1:= _
"abgeschlossen"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With

Sheets("Abgeschlossene Vorgänge").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

'Application.DisplayAlerts = False

'Sheets(Variable).Select
'With ActiveSheet.AutoFilter.Range.Offset(1)
'.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
shift:=xlUp

'Application.DisplayAlerts = True

'End With

Sheets(Variable).UsedRange.AutoFilter
Sheets(Variable).Select
Rows("1:1").Select
Selection.AutoFilter
End Sub

https://www.herber.de/bbs/user/159807.xlsm