Hi again
I actually Liked Millz code very much
Concerning the speed for large amount of data this code could be faster!
Sub test2()
    Dim i As Long, lr, lr2 As Long
    Dim a As Variant
    Application.ScreenUpdating = False
    With ActiveSheet
        a = .Range("A10").CurrentRegion.Resize(, 10)
        lr2 = .Cells(Rows.Count, "c").End(xlUp).Row - 9
        For i = 2 To UBound(a)
            lr = .Cells(Rows.Count, "L").End(xlUp).Row
            Range("L" & lr + 1).Resize(lr2) = Application.Index(a, 0, 3)
            Range("M" & lr + 1).Resize(lr2) = a(i, 1)
            Range("N" & lr + 1).Resize(lr2, 6) = Application.Index(a, 0, Array(4, 5, 6, 7, 8, 9))
        Next
    End With
    Application.ScreenUpdating = True
End Sub