Split Delimited nth Data into New Rows/columns

Change

    With Sheets("sheet2").Cells(1).Resize(, 3)

to

    With Sheets.Add.Cells(1).Resize(, 3)