860to864: Zeile auschneiden und an richtiger Stelle einfügen

Sub Zeile_verschieben_Formeln_uebernehmen()
Dim cell As Range
Dim a As Long
SpeedUp (True)
'erst überprüfen ob eine Zeile markiert ist
'ist eine Zeile markiert soll MsgBox erscheinen in der gefragt wird
MsgBox "ist das die richtige Zeile?"
'ist keine Zeile markiert dann
MsgBox "markieren Sie eine Zeile!"
'Wenn Zeile markiert dann ok
ActiveCell.EntireRow.Cut 'Zeile ausschneiden
'InputBox("Tragen Sie ein neues Datum ein!", _"Eingabefeld", 0)
MsgBox "ist das Datum richtig?"
'Wenn das Datum richtig ist, dann mit OK bestätigt:
'Loop Until ? 'code zum Verarbeiten vom Input-Wert zu Zeile in das neue Datum chronologisch  _
hinpasst
ActiveSheet.Paste 'dazu erst an dieser Stelle neue Zeile einfügen und dann ausgeschnittene  _
Zeile einfügen
Selection.Delete Shift:=xlUp 'entstandene Lücke schliesen
'WENN das Datum doch falsch ist dann abbrechen und erneutes erscheinen der Inputbox
'a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
'For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
'cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
'wenn dann doch abgebrochen wird, dann alles rückgängig machen
'wenn Datum eigegeben, dann Msgbox usw.
'a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1 'zum Schluß Spalten mit Formeln  _
aktualisieren (ab Zeile 6 bis in die Zeile in der das letzte mal etwas in Spalte A steht)
'For Each cell In Rows(Zeile 6).SpecialCells(xlCellTypeFormulas, 23)
'cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
'Next
SpeedUp (False)
End Sub