I found where I can change the Output. But when I´m trying it now I get a "Incompatible Types" error message, and when I press the Troubleshoot button it highlight this row:
Cells(2, 1).Resize(.Count, UBound(sn, 2)) = Application.Index(.items, 0, 0)