You should not really by copying and pasting. Use export as in
data = Cases[Normal[p], x_Line :> First[x], Infinity]; data = Flatten[data, 1];
SetDirectory[NotebookDirectory[]];
Export["test.xls", data]
Now open the file "test.xls" in the same folder as the notebook using excel.
