ciao
ti allego il tuo file con la sub() inserita nel foglio
Option Explicit
Sub Subtotale_()
Dim i As Long, ncol As Long
Dim Rip As Double
Rip = 0
For ncol = 5 To 6
For i = 3 To Cells(Rows.Count, ncol).End(xlUp).Row + 1
If Cells(i, ncol) <> "" Then
Rip = Rip + Cells(i, ncol).Value
Else
Cells(i, ncol) = Rip
With Cells(i, ncol)
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With
Rip = 0
End If
Next i
Next ncol
End Sub
Ciao da locate
excel 2007 / 13