Sub Sorter()
Dim x As Long
x = 2 'brukes for å printe resultatene

For i = 2 To 2500 'ytre loop, sorterer radene
    Dim navn As String

    If Cells(i, 1).Value = "" Then
        MsgBox ("Sortering ferdig.")
        Exit Sub
    Else
        navn = Cells(i, 1).Value
    End If
    
    For j = 2 To 8 'indre loop, går gjennom kolonnene
        
        If Cells(i, j).Value = "" Then
            'ferdig med dette navnet
            Exit For
        End If
        Cells(x, 14).Value = navn
        Cells(x, 15).Value = Cells(i, j).Value
        x = x + 1
    Next j
Next i
End Sub