inserire una riga con intestazione in automatico ogni 5 righe

Option Explicit

Sub OrdinaCrescente()

    Dim vector As Variant
    Dim Rig    As Long, Col As Long, Val As Long

    Columns("J:N").Clear                          'pulizia preventiva colonne J:N
    Application.Calculation = xlManual
    For Rig = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        ''carico in un vettore le celle interessate
        vector = Sheets("Foglio1").Range(Cells(Rig, "C"), Cells(Rig, "G"))
        Col = 10
        For Val = 1 To 5
            Sheets("Foglio1").Cells(Rig, Col) = Application.Small(vector, Val)
            ''scrivo il valore dal piu' piccolo al piu' grande nella sua colonna
            Col = Col + 1
        Next Val
    Next Rig
    '--------------
    Application.ScreenUpdating = False            'evita lo sfarfallio dello schermo
    For Rig = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 'cicla all'inverso l'elenco
        If Cells(Rig, 1).Value <> Cells(Rig - 1, 1).Value Then 'confronta le date tra due righe
            Range("J" & Rig & ":N" & Rig).Insert Shift:=xlDown 'inserisce una fila di celle vuote
            Cells(Rig, 10) = Format(Cells(Rig, 1), "mm/dd/yyyy") 'inserisce e formatta le date
        End If
    Next Rig
    Columns(Col).EntireColumn.AutoFit             'adatta la larghezza della colonna
    Application.ScreenUpdating = True
    '--------------
    Application.Calculation = xlAutomatic
    Calculate
    
End Sub

Option Explicit

Sub OrdinaCrescente()

    Dim vector As Variant
    Dim Rig    As Long, Col As Long, Val As Long
    Dim i, conta
    
    Columns("I:N").Clear                          'pulizia preventiva colonne I:N
    Application.Calculation = xlManual
    For Rig = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        ''carico in un vettore le celle interessate
        vector = Sheets("Foglio1").Range(Cells(Rig, "C"), Cells(Rig, "G"))
        Col = 10
        For Val = 1 To 5
            Sheets("Foglio1").Cells(Rig, Col) = Application.Small(vector, Val)
            ''scrivo il valore dal piu' piccolo al piu' grande nella sua colonna
            Col = Col + 1
        Next Val
    Next Rig
    '--------------
    For Rig = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 'cicla all'inverso l'elenco
        If Cells(Rig, 1).Value <> Cells(Rig - 1, 1).Value Then 'confronta le date tra due righe
            Range("I" & Rig & ":N" & Rig).Insert Shift:=xlDown 'inserisce una fila di celle vuote
            Cells(Rig, 9) = Format(Cells(Rig, 1), "mm/dd/yyyy") 'inserisce e formatta le date in colonna I
            For i = 1 To conta + 1                'ciclo pari alle date ripetitive
                Cells(Rig + i, 9) = Cells(Rig + i - 1, 2) 'inserisci ruota in colonna I
            Next i
            conta = 0                             'resetta il contatore date ripetitive
        Else
            conta = conta + 1                     'incrementa contatore date ripetitive
        End If
    Next Rig
    Columns(9).EntireColumn.AutoFit               'adatta la larghezza della colonna I
    '--------------
    Application.Calculation = xlAutomatic
    Calculate
    
End Sub

If Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Value <> Range("J" & Cells(Rows.Count, "J").End(xlUp).Row - 11).Value Then
    'fai qualcosa
Else
    'fai qualcos'altro
End If

Sub OrdinaUltima()
 
    Dim vector As Variant
    Dim Rig    As Long, Col As Long, Val As Long
    Dim i, conta
     
    'Columns("I:N").Clear                          'pulizia preventiva colonne I:N
    Application.Calculation = xlManual
    For Rig = 64660 To Cells(Rows.Count, "C").End(xlUp).Row 'da riga 64659 a ultima della colonna C
    
        ''carico in un vettore le celle interessate
        vector = Sheets("Foglio1").Range(Cells(Rig, "C"), Cells(Rig, "G"))
        Col = 10
        For Val = 1 To 5
            Sheets("Foglio1").Cells(Rig, Col) = Application.Small(vector, Val)
            ''scrivo il valore dal piu' piccolo al piu' grande nella sua colonna
            Col = Col + 1
        Next Val
    Next Rig
    '--------------
    For Rig = Cells(Rows.Count, "A").End(xlUp).Row To 64660 Step -1 'cicla all'inverso l'elenco
        'If Cells(Rig, 1).Value <> Cells(Rig - 1, 1).Value Then 'confronta le date tra due righe
        If Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Value <> Range("I" & Cells(Rows.Count, "I").End(xlUp).Row - 1).Value Then
           ' Cells(Rows.Count, "I").End(xlUp).Row + 1 funzione dove iniziare a scrivere i dati ovvero prima riga vuota colonna I
            Range("I" & Rig & ":N" & Rig).Insert Shift:=xlDown 'inserisce una fila di celle vuote
            Cells(Rig, 9) = Format(Cells(Rig, 1), "mm/dd/yyyy") 'inserisce e formatta le date in colonna I
            For i = 1 To conta + 1                'ciclo pari alle date ripetitive
                Cells(Rig + i, 9) = Cells(Rig + i - 1, 2) 'inserisci ruota in colonna I
            Next i
            conta = 0                             'resetta il contatore date ripetitive
        Else
            conta = conta + 1                     'incrementa contatore date ripetitive
        End If
    Next Rig
    Columns(9).EntireColumn.AutoFit               'adatta la larghezza della colonna I
    '--------------
    Application.Calculation = xlAutomatic
    Calculate
     
End Sub

Option Explicit

Sub OrdinaUltima()

    Dim vector As Variant
    Dim Rig    As Long, Col As Long, Val As Long
    Dim i, conta, rig1, rig2
    Dim uData                                     'riga ultima data estrazione elaborata +1
    
    Application.Calculation = xlManual
    '--- salvato dato ultima riga (ora 64660) e sostituita con la variabile uData ---
    uData = Range("P1")                           'prelevo il numero prima riga dall'ultima elaborazione
    For Rig = uData To Cells(Rows.Count, "C").End(xlUp).Row 'da riga uData a ultima della colonna C
        ''carico in un vettore le celle interessate
        vector = Sheets("Foglio1").Range(Cells(Rig, "C"), Cells(Rig, "G"))
        Col = 10
        rig1 = Cells(Rows.Count, "J").End(xlUp).Row + 1 '<-- trovare ultima riga compilata I-N
        For Val = 1 To 5
            Sheets("Foglio1").Cells(rig1, Col) = Application.Small(vector, Val)
            ''scrivo il valore dal piu' piccolo al piu' grande nella sua colonna
            Col = Col + 1
        Next Val
    Next Rig
    '--------------
    '--- salvato dato ultima riga (ora 64660) e sostituita con la variabile uData ---
    For Rig = Cells(Rows.Count, "A").End(xlUp).Row To uData Step -1 'cicla all'inverso l'elenco
        If Cells(Rig, 1).Value <> Cells(Rig - 1, 1).Value Then 'confronta le date tra due righe
            rig2 = Cells(Rows.Count, "I").End(xlUp).Row + 1 '<-- dove iniziare a scrivere i dati ovvero prima riga vuota colonna I
            Range("I" & rig2 & ":N" & rig2).Insert Shift:=xlDown 'inserisce una fila di celle vuote
            Cells(rig2, 9) = Format(Cells(Rig, 1), "mm/dd/yyyy") 'inserisce e formatta le date in colonna I
            For i = 1 To conta + 1                'ciclo pari alle date ripetitive
                Cells(rig2 + i, 9) = Cells(Rig + i - 1, 2) 'inserisci ruota in colonna I
            Next i
            conta = 0                             'resetta il contatore date ripetitive
        Else
            conta = conta + 1                     'incrementa contatore date ripetitive
        End If
    Next Rig
    Columns(9).EntireColumn.AutoFit               'adatta la larghezza della colonna I
    Range("P1") = Cells(Rows.Count, "A").End(xlUp).Row + 1 'ultima data estrazione elaborata (+1) appoggiata in cella P1
    '--------------
    Application.Calculation = xlAutomatic
    Calculate
    
End Sub

Range("P1") = Cells(Rows.Count, "A").End(xlUp).Row + 1