With ws
        .Cells(lRow, 1).Value = Key
        .Cells(lRow, 2).Value = txtCourseTitle.Text
        .Cells(lRow, 3).Value = cStartDate
        .Cells(lRow, 4).Value = cEndDate
        .Cells(lRow, 5).Value = Int(txtCourseFunding.Text)
    End With

    With ws2
        .Cells(lRow2, 1).Value = Key
        .Cells(lRow2, 2).Value = "=VLOOKUP(A" & lRow2 & ", CourseTable, 2, FALSE)"
        .Cells(lRow2, 3).Value = "=VLOOKUP(A" & lRow2 & ", CourseTable, 5, FALSE)"
        .Cells(lRow2, 4).Value = "=COUNTIF(CourseName_Enrolment,B" & lRow2 & ")"
        .Cells(lRow2, 5).Value = "=SUM(D" & lRow2 & "*C" & lRow2 & ")"
        .Cells(lRow2, 6).Value = "=IF(AND(E" & lRow2 & "<1500, D" & lRow2 & ">5),$I$4,IF(AND(E" & lRow2 & "<1500, D" & lRow2 & "=5),$I$4/2,0))"
        .Cells(lRow2, 7).Value = "=SUM(E" & lRow2 & "+F" & lRow2 & ")"
    End With