einfacher VBA-Code funzt nicht wirklich :(

Private Sub CommandButton1_Click()
Dim Rx As Range, Sx As Range
Dim Fx, DX, N As Integer
Dim Zeile As Long
Fx = Array("Einsendedatum", "Art der Sendung", "Zielland", "Menge")
DX = Array("$C$15", "$G$15", "$K$15", "O$15")
Set Rx = Worksheets("Dateneingabe").Range("$C$15")
Set Sx = Worksheets("Liste").Range("B3")
Zeile = Worksheets("Dateneingabe").Cells(Rows.Count, 2).End(xlUp).Row - 2
If Rx.Value  "" Or Rx.Offset(0, 3).Value  "" Or Rx.Offset(0, 7).Value  "" Then
For N = 0 To 2
If Range(DX(N)).Value  "" Then
Sx.Offset(Zeile, N * 2).Value = Range(DX(N)).Value + IIf(N = 1, 21, 0)
Range(DX(N)).Value = ""
Else
MsgBox "Zur Übernahme ist " & Fx(N) & " notwendig!", vbCritical, "Fehler!"
Exit For
End If
Next
Else
MsgBox "Erforderliche Daten nicht vorhanden", vbCritical, "Fehler!"
End If
Set Rx = Nothing
Set Sx = Nothing
End Sub

Bei Klick auf den Command Button 1 sollen die Daten aus C15, G15, K15 und O15 in die zellen "Liste!B2:E2" eingetragen werden.
Die Eintragungen sollen fortlaufend sein, also immer weiter untereinander geschrieben werden.
Nach der Datenübernahme in die Liste sollen die vier Zellen automatisch gelöscht werden.
Bisher kopiert er mir ohne Probleme die Zelle C15 nach B2, der rest bleibt leer. Das Löschen der eingegebenen Daten funktioniert auch nicht.
In den Zellen G15 und K15 habe ich eine Gültigkeit/Liste hinterlegt, Quelldaten hierfür sind in den Spalten Dateneingabe!R5:R26 und Dateneingabe!S5:S14.
C15 und O15 werden "per hand" ausgefüllt.
hat jemand eine Idee für mich?
LG
Sascha