Как дописать код, чтобы данные уходили на другой лист

[Наталья66]

Здравствуйте!
У меня есть таблица с заказами, в одну из ее ячеек "столбца B" попадают товары из listbox через запятую. (Во вложении всю таблицу не предоставляю, только необходимый столбец).

Мне нужно по выбранному заказу из этой таблицы формировать счет, в который будут попадать товары из "столбца B", но построчно.

Код по разделению текста на строки я нашла, а как сделать чтобы он разделялся не в этой же таблице заказов, а уходил в "счет" и ниже строки сдвигались корректно я не знаю.

Помогите пожалуйста с написанием кода.


Dim lngI As Long
Dim intJ As Integer
Dim strA() As String
For lngI = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
strA = Split(Cells(lngI, 2), ",", -1)
Rows(lngI + 1 & ":" & lngI + UBound(strA)).Insert Shift:=xlDown

For intJ = UBound(strA) To LBound(strA) Step -1
Cells(lngI + intJ, 2) = strA(intJ)
Next intJ

Next lngI

[rubius2008]

Чтобы записать на другой лист можете обратиться к конкретному листу (Sheets):

Sheets("Счет").Cells(...) = ...

Для добавления строк лучше использовать вставку новых строк.