Agregar otro acontecimiento mediante Set en excel

Dispongo del siguiente código hecho por Vos al que quisiera hacer participar datos de otra hoja y que al final totalice todo en la Hoja INFORMES

'DE -----------------------------------------------------------------

Set h1 = Sheets("DE")
Set h2 = Sheets("INFORMES")
u = h2.Range("B" & Rows.Count).End(xlUp).Row
If u < 18 Then u = 18
h2.Range("B18:B" & u).ClearContents
h2.Range("D18:D" & u).ClearContents
k = 18
Set r = h1.Columns("N")
Set b = r.Find(h2.Range("B4"), lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
existe = False
For j = 18 To h2.Range("B" & Rows.Count).End(xlUp).Row
If h2.Cells(j, "D") = h1.Cells(b.Row, "E") Then
existe = True
k = j
Exit For
End If
Next
'
If existe Then
h2.Cells(k, "B") = h2.Cells(k, "B") + h1.Cells(b.Row, "Q")
Else
k = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Cells(k, "B") = h1.Cells(b.Row, "Q")
h2.Cells(k, "D") = h1.Cells(b.Row, "E")
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If

La otra hoja que puede aportar datos se llama DEVOLUCIONES y en la col M esta el articulo que retorna, en la col O la cantidad que retorna y en la col Q la fecha en la que retorna.

Luego, cómo podría lograr que con el código existente, analice la hoja DE y también ahora la hoja DEVOLUCIONES, ¿y coloque todos los resultados en la hoja INFORMES?

Como se que me pedirás un ejemplo, te lo pasare por mail privado

Un abrazo y como siempre.