I assume that the differential results table is complete and contains all expressed genes rather than just the 12 genes shown in your post. I also assume that there are some significantly DE genes and that FDR < 0.05 is an appropriate DE cutoff.
If you don't want to separate DE genes by direction of change then
Results <- read.csv("mycsvfile.csv")
Universe <- as.character(Results$ENTREZID)
DE <- Universe[ Results$FDR < 0.05 ]
g <- goana(DE, Universe)
If you do want to separate genes by direction of change (recommended) then