John Smith, добрый день! Кроме как написания макроса варианта я не вижу, но не могу сообразить как перекинуть данные в другой файл, просто копировать со сдвигом делаю так:
Sub
Range("A1").Copy
Cells(Application.Max(3, Cells(Rows.Count, 1).End(xlUp)(2).Row), 1).PasteSpecial xlPasteValues
End Sub
Благодарю, Ваш ответ более развернут по сравнению с предыдущим, но не могу отметить его как решение - будет несправедливо по отношению к господину выше! Ваш пример с логикой и тернарной операцией обязательно разберу!
Можешь попробовать велосипед:
А вообще желательно выложить сюда код либо исправить преобразование в строку