Loop Until Empty Cell

Hello,

Ended up with some compouding issues on my last post and decided to delete and split into two posts.

Have a spreadsheet with student performance and a macro to copy each student's data from the master sheet into a new tab.

The macro now creates a tab for each cell in the range, as some co workers have smaller classes, would like to modify the macro to stop when it hits an empty cell. Tried Do until isempty but was not able to make that work. Any suggestions would be great. Thanks.

the macro

Sub PagesByDescription()
    Dim rRange As Range, rCell As Range
    Dim wSheet As Worksheet
    Dim wSheetStart As Worksheet
    Dim strText As String
     
    Set wSheetStart = ActiveSheet
    wSheetStart.AutoFilterMode = False
     'Set a range variable to the correct item column
    Set rRange = Range("A9:A50")
     
    On Error Resume Next
    With wSheetStart
        For Each rCell In rRange
            strText = rCell
            .Range("A9").AutoFilter 1, strText
            Worksheets(strText).Delete
             'Add a sheet named as content of rCell
            Worksheets.Add().Name = strText
             'Copy the visible filtered range _
            (default of Copy Method) And leave hidden rows
            .UsedRange.Copy Destination:=ActiveSheet.Range("A1")
            ActiveSheet.Cells.Columns.AutoFit
        Next rCell
    End With
     
    With wSheetStart
        .AutoFilterMode = False
        .Activate
    End With
     
    On Error GoTo 0
    Application.DisplayAlerts = True


End Sub

Test1.xlsm

That is great, thanks a lot!

One thing that I've noticed is that the formula for group averages along the row 5 is inserted as a value in students 2 and beyond but a formula for student 1 - the result is that student 1's group averages equal his score. Is there something I can adjust there so that that doesn't happen?

Thanks!

Thanks, applied to all the cells as desired but am looking to get just the values from the cells and not the formula - is there a modification to this that will paste values from the "all students" page only so that I only have one tab that requires formulas?

Thanks!!