---

Sub MiniConsolidate()
    Dim k As Long, r As Long
    r = Cells(Rows.Count, "A").End(xlUp).Row
    For k = r To 9 Step -1
        If Cells(k, 1) = Cells(k - 1, 1) And Cells(k, 9) = Cells(k - 1, 9) Then
            If Cells(k - 1, 10) = "" Then Cells(k - 1, 10) = Cells(k, 10)
            If Cells(k - 1, 11) = "" Then Cells(k - 1, 11) = Cells(k, 11)
            If Cells(k - 1, 12) = "" Then Cells(k - 1, 12) = Cells(k, 12)
            If Cells(k - 1, 13) = "" Then Cells(k - 1, 13) = Cells(k, 13)
            Rows(k).Delete
        End If
    Next k
    If Cells(8, 1) = "pernr" Then Rows(8).Hidden = True
End Sub