It is really almost impossible to see what is happening in a screenshot . Can you give us the data in a dput format?
A handy way to supply some sample data is the dput() function. In the case of a large dataset something like dput(head(mydata, 100)) should supply the data we need. Just do dput(mydata) where mydata is your data. Copy the output and paste it here.
For general information see FAQ Asking Questions
At a guess you need to store that output in a variable and then export to .csv or xlsx format. Just exporting to .csv and reading that file into Excel is probably the easiest method.
## Generate some data
xx <- rnorm(100)
## write xx to disc,
write.csv(xx, "xx.csv", row.names = FALSE)