Sheets.Add(Before:=Sheets(1)).Name = "Below 70"
Worksheets("Below 70").Range("A1:D1").Value = Array("StudentID", "Last Name", "First Name", "Email")

Dim i As Integer, j As Integer
i = 2
j = 5

Dim currentStudent() As Variant
Dim newStudent as Integer, newScore as Integer
newStudent = 2

Do While Cells(i, 1).Value <> ""
  currentStudent = Range(Cells(i,1), Cells(i,4))
  newScore = 5
  Do While Cells(i, j).Value <> ""
    If Cells(i, j).Value < 70 And newScore = 5 Then
      Worksheets("Below 70").Range(Cells(newStudent,1), Cells(newStudent,4)).Value = currentStudent
      Worksheets("Below 70").Range(Cells(newStudent,newScore)).Value = Range(Cells(1,j)).Text & ":" & Chr(10) & Range(Cells(i,j)).Text
      newScore = newScore + 1
    ElseIf Cells(i, j).Value < 70 And newScore > 5 Then
      Worksheets("Below 70").Range(Cells(newStudent,newScore)).Value = Range(Cells(1,j)).Text & ":" & Chr(10) & Range(Cells(i,j)).Text
      newScore = newScore + 1
    End If

    If newScore > 5
      newStudent = newStudent + 1
    j = j + 1
  Loop
  i = i + 1
Loop