Добрый день!
У меня возникла небольшая загвоздка и я был бы признателен Вашей помощи, уважаемые форумчане!
  Переношу часть текста из столбца А в столбец B(все, что после запятой):    

Скрытый текст
Columns("A:A").Select    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

но каждый раз выскакивает предупреждение "Здесь уже есть данные. Вы хотите заменить их?" и очень хочется от него избавиться.
Вопрос: есть ли способ и если есть, то какой?
Заранее благодарен!