Macro to move data from sheet1 to sheet2 when clicked

Here's a way. We're going to use the trick above to simply give the cell with people's names in it the name "NAME". Then we use that name in the formulas on Sheet1 to draw over the values in relation to their position from the cell currently named "NAME".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And _
    Target.Row > 4 And _
        Target.Font.Bold = True _
            Then Target.Name = "Name"
End Sub

You will have to clean up your value a little. To give the sheet some sense of order, it has to stop listing values at some point or it flows into the next name classes. To stop that from happening, we're evaluating some of the results and once we get 0 we stop.

That means cells like S40 are a problem and should be moved up to eliminate blank rows inside a single person's lists of classes. If you don't move S40 up to S39, you'll never see it on Sheet1.