Il problema è facilmente rilevabile; se nel tuo foglio fai un Ctrl+Fine noterai che il cursore si ferma nella cella O9655.
Questo significa che tutta zona a partire dalla cella A1 contiene dati o formule. In effetti un po' da per tutto c'è una miriade di formule incomplete inserite in modo irregolare per tutta l'area. Queste formule inficiano il calcolo dell'ultima riga non vuota ed utilizzata dalla macro per fermarsi.
Ora bisogna capire se sono residui di prove e l'area va solamente "bonificata" o se, una volta corrette, le formule servono ancora.
Nel caso di bonifica basta selezionare tutte le righe dalla 31 fino in fondo in basso ed eliminarle e selezionare tutte le colonne dalla G fino in fondo a destra ed eliminare pure quelle. Una volta salvato il file e riaperto questo permetterà alla macro di calcolare correttamente l'ultima riga utile.
Altrimenti puoi usare questa nuova versione della macro che per calcolare l'ultima riga considera solo eventuali valori (date) non il contenuto (formule):
Option Explicit
Public Sub AggiungiTreRighe()
Dim ur As Long
Dim nur As Long
Dim lng As Long
Dim inizio As Long
Dim fine As Long
With Worksheets("Dati (3)")
ur = Range("C:C").Find("", After:=Range("C2"), LookIn:=xlValues, SearchOrder:=1).Row
nur = ur
For lng = ur To 3 Step -1
If .Range("C" & lng) <> .Range("C" & lng).Offset(-1, 0) Then 'se c'è cambio data in colonna C
If .Range("C" & lng).Offset(0, 2) <> "" Then 'se colonna E è valorizzata
Rows(lng).Resize(3).Insert xlShiftDown 'inserisci righe vuote
nur = nur + 3 'calcola nuova ultima riga
End If
End If
Next
inizio = 2
For lng = 2 To nur
If .Range("C" & lng).Offset(1, 0) = "" Then 'se c'è cella vuota sotto
fine = .Range("C" & lng).Row + 2
'inserisci la formula del totale parziale in colonna J
.Range("C" & lng).Offset(3, 3).FormulaLocal = "=SOMMA(F" & inizio & ":F" & fine & ")"
lng = lng + 3
inizio = lng + 1
End If
Next
End With
End Sub[Modificato da rollis13 17/11/2017 00:53]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)