Recorrer hojas de un libro, listar sus nombre en otra hoja y extraer datos

Tengo un código que me agrega una hoja al final llamada "EPESOR", luego me lista los nombres de las hojas que comienzan con "PL" y me pone el nombre del archivoen una celda(D1), lo que necesito es que al recorrer las hojas también me haga una suma de cada hoja (columna "E"), y me las liste en la hoja "ESPESOR", les dejo el código:

Dim Fila As Long
Dim Rango As Range
Dim Hoja As Worksheet
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "ESPESOR"
[D1].Value = ActiveWorkbook.Name
Set Rango = [B3]
For Each Hoja In ActiveWorkbook.Worksheets
If Left(Hoja.Name, 2) = "PL" Then
Rango.Value = Hoja.Name
Set Rango = Rango(2, 1)
End If
Next Hoja
Set Hoja = Nothing
Set Rango = Nothing
End Sub