Tengo una macro, para contabilizar venta diaria necesitaría ampliarla

Tengo una macro para contabilizar venta diaria y necesitaría ampliarla para agregar otra estadística más abajo, con las mismas características :

Sub Diario_Venta()
'Por.Dante Amor
ActiveSheet.Unprotect Password:="1"
Application.EnableEvents = False
Set h = Sheets("Diario Venta")
'limpiar colores
h.Range("D4:AH15").Interior.ColorIndex = xlNone
h.Range("D4:AH15").Font.ColorIndex = xlAutomatic
'
mes = Format(Date, "mmmm")
dia = Day(Date)
Set b = h.Range("C4:C15").Find(mes, LookAt:=xlWhole)
If Not b Is Nothing Then
f = b.Row
Set b = h.Range("D2:AH2").Find(dia, LookAt:=xlWhole)
If Not b Is Nothing Then
c = b.Column
For i = 4 To f
For j = 4 To 34
If i = f And j = c Then
Exit For
End If
conta = conta + h.Cells(i, j)
Next
Next
ventatotal = h.[A4]
h.Cells(f, c) = ventatotal - conta
h.Cells(f, c).Interior.ColorIndex = 3
h.Cells(f, c).Font.ColorIndex = 2
End If
End If
Application.EnableEvents = True
End Sub

Los parametros de la nueva estadisticas son :

h.Range("D19:AH30").Interior.ColorIndex = xlNone
h.Range("D19:AH30").Font.ColorIndex = xlAutomatic

Set b = h.Range("C19:C30").Find(mes, LookAt:=xlWhole)

Set b = h.Range("D17:AH17").Find(dia, LookAt:=xlWhole)

ventatotal = h.[A19]

Si se puede hacer, sino abriría otra hoja para repetir la macro, pero me interesaría en la misma.
Un saludo