Excel - borrar celdas con condición de fecha y valor

Option Explicit

'//By JuanC - Nov. 2013

Sub sasa()

Dim cell As Range

Dim v As Variant

Dim fil&, rng As Range, rngpivot As Range

Dim suma#, n&

Application.ScreenUpdating = False

Set cell = Range("A2")

Set rngpivot = Range("C2")

v = cell.Value

n = 0

Hoja2.Cells.Clear

Do While cell.Offset(fil).Value <> ""

   If cell.Offset(fil).Value <> v Then

      Set rng = Range(rngpivot.Address(0, 0) & ":C" & cell.Offset(fil).Row - 1)

      suma = Excel.WorksheetFunction.Sum(rng)

      If suma = 0 Then

         rng.EntireRow.Hidden = True

      Else

           Hoja2.Range("A1").Offset(n, 0).Value = v

           Hoja2.Range("A1").Offset(n, 1).Value = suma

           n = n + 1

      End If

      v = cell.Offset(fil).Value

      Set rngpivot = cell.Offset(fil, 2)

   End If

   fil = fil + 1

Loop

Hoja2.Activate

Application.ScreenUpdating = True

End Sub