Dear Client,
This macro will work. Just create a new output sheet and name it Output2 and run this macro to see the effect, if satisfied, i can finish it up for you for the remaining columns L to S, i couldnt paste the whole macro here due to space constraint, i can send the complete version to you via chat
Thanks
Sub hhh()
Dim Row As Integer, Col As Integer, x As Integer, lRow As Integer
Dim Rowopt As Integer, Counter As Integer, iterator As Integer
Dim Coursearray(1 To 12) As String
Dim Unitarray(1 To 12) As String
Dim Scorearray(1 To 12) As String
Dim Gradearray(1 To 12) As String
Dim details(1 To 6) As String
For Row = 2 To 11
Counter = 0
details(1) = Worksheets("Input").Cells(Row, 2).Value
details(2) = Worksheets("Input").Cells(Row, 3).Value
details(3) = Worksheets("Input").Cells(Row, 4).Value
details(4) = Worksheets("Input").Cells(Row, 5).Value
details(5) = Worksheets("Input").Cells(Row, 6).Value
details(6) = Worksheets("Input").Cells(Row, 7).Value
For Col = 8 To 19
If IsEmpty(Worksheets("Input").Cells(Row, Col)) = False Then
Counter = Counter + 1
Coursearray(Counter) = ExtractElement(Worksheets("Input").Cells(1, Col).Value, 1, "(")
Scorearray(Counter) = Left(Worksheets("Input").Cells(Row, Col).Value, 2)
Gradearray(Counter) = Right(Worksheets("Input").Cells(Row, Col).Value, 1)