BGNormals = Import["http://ceadserv1.nku.edu/longa//classes/mat375/days/docs/Fletcher/data/BowlingGreenDailyClimateNormals.csv", "CSV"]; BGheader = BGNormals[[1]] BGNormalData = BGNormals[[2 ;;]]; (* Dumb counting method...:) *) navg = 13*4 + 6 + 1; ndtr = navg + 2; nmax = navg + 4; nmin = navg + 6; navgstddev = navg + 8; ndtrstddev = navg + 10; nmaxstddev = navg + 12; nminstddev = navg + 14; indices = {navg, ndtr, nmax, nmin, navgstddev, ndtrstddev, nmaxstddev, nminstddev}; vnames = BGheader[[indices]] BGNormalTemps = BGNormalData[[All, indices]]; BGNormalTemps[[1, All]] {avg, dtr, max, min, avgstddev, dtrstddev, maxstddev, minstddev} = Transpose[BGNormalTemps];