セル内改行された文字列の上段のみ消す

いつもお世話になっています。 セル内改行された文字列の上段のみ消す方法を探しています。 たとえば、 セルA１に　１２３４５ 　　　　　 ６７８９０ のようにセル内で改行されたデータがあります。 そのうちの上段１２３４５のみを削除したいのですが、 そういったことは可能でしょうか。 関数でもマクロでも方法があればなのですが。 よろしくお願いします。