Sub clases()

'Identificar ultima fila ocupada
Dim filas As Integer
filas = ActiveSheet.UsedRange.Rows.Count

'Comenzar desde la 2da fila
Dim fila As Integer
fila = 2

'Ejecutar una vez por fila desde la 2da hasta la ultima identificada
For i = fila To filas
    'Tomar primer valor de la fila
    Dim clases As Integer
    clases = Cells(i, "B").Value
    For j = 2 To cols
        If Cells(i, j).Value = "Clase 1" Then
            For k = 1 To clases - 1
                Cells(i, j + k).Value = "Clase " & k + 1
                Next k
        End If
    Next j

Next i
End Sub