Howdy and welcome to the board. If you are a newbie to VBA, then I would suggest using looping with "For Each Worksheet" in workbook rather than Do ... While loop. Also, do you have a naming scheme for the worksheets?
Also, if you want to add at the bottom of the new worksheet, then you will need to determine the next blank row. Something along this line
Code:
Dim NextRow as Long
NextRow = Worsheets("NewSheet").Cells(Rows.Count,1).End(Xlup).Row + 1
Then you can use NextRow to determine where to paste.