Copy selected items from Listbox to multiple ranges

[sharky12345]

How can I either change this or amend it so that it also pastes to Sheets("Stock") from D4 down?

If ListBox2.Selected(i) = True Then Worksheets("Issued").Range("B65536").End(xlUp).Offset(1, 0).Value = ListBox2.List(i)

 

[sharky12345]

Posted elsewhere too;

http://www.vbaexpress.com/forum/showthread.php?53669-Copy-selected-items-from-Listbox-to-multiple-ranges&p=330346#post330346

 

[mancubus]

assuming there is only one table in sheet stock and D4 is not blank

If ListBox2.Selected(i) = True Then
    Worksheets("Issued").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = ListBox2.List(i)
    Worksheets("Stock").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = ListBox2.List(i)
End If

 

[sharky12345]

Thank you!