Excel - sumar columnas

Estimados foreros tengo un problema con un informe (los datos estan en varias hojas y los filtro con un usf) que estoy realizando la cosa es que he de sumar la columna D y por otro lado la columna I y luego en otro lugar hacer la resta. las sumas ya las se hacer pero ahora quiero convertirlas en una variable para despues usarlas en la resta y no se como es la sintaxis.
Os adjunto el codigo por si le podeis hechar un vistazo
De antemano mil gracias

Dim rng As Excel.Range
Dim X&, Y&
Dim K As Integer
Dim z As Integer
Dim sumaTotalEntradas As Integer
Dim SUMENTR As Integer

For K = 11 To 10000
If Hoja15.Cells(K, 4) = "" Then
final = K - 1
Exit For
End If
Next

X = 11: Y = K
Set rng = Range("D" & X & ":D" & Y)
With rng
.Select
End With


For z = 11 To 10000
If Hoja15.Cells(z, 4) = "" Then
sumaTotalEntradas = z + 1
Exit For
End If
Next
'esta es la linea que da error
SUMENTR = "=SUM(" & "D" & X & ":D" & Y & ")"

Hoja15.Cells(sumaTotalEntradas, 4) = SUMENTR
Hoja15.Cells(sumaTotalEntradas, 3) = "ENTRADES"

Set rng = Nothing

primero cambia el tipo de variable Integer a Double
Dim SUMENTR As Double
y luego remplaza la línea de error por
SUMENTR = Excel.WorksheetFunction.Sum(rng)

(no es necesario seleccionar el rango)

Saludos desde Baires, JuanC

Mil gracias funciona de maravilla