Wert vohanden? dann woanders eintragen.

Private Sub CommandButton2_Click()
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Diese Code besagt, wie die Experten zweifellos erkennen können, dass nach der untersten beschriebenen Zeile ein Text aus der Zwischenablage eingefügt werde soll.
Nun soll aber noch eine Prüfung vorgenommen werden: Grundsätzlich soll weiterhin nach der untersten freien Zelle der Text eingefügt werden, aber nicht, wenn in irgendeiner Zelle der Zeile 10 etwas steht. Denn dann soll es erst in der Zeile 15 weitergehen.
Was das so verständlich?
Ich denke, dass das möglich ist, habe aber nicht genug Ahnung von VBA, dass ich den Code selber schreiben kann...
Danke.
Viele Grüße
Marco