Excel - Mas producto en VBA

Buenos dias,sigo con el problema con realizar un calculo en VBA lo que quiero es que me coja la cantidad de la columna C y lo multiplique per el precio Colm. D y el resultado lo ponga en E , tal como ya pregunte el otro dia.
He conseguido que me lo haga `pero solo en la primera linea no consigo que repita la rutina hasta el final de las lineas, donde me estoy equvocando?

Por otro lado me gustaria poner al final de la columna E la suma del total, alguien sabe donde puedo ver una aplicación que lo haga para ver si entiendo el codigo y soy capaz de aplicarlo (creo haber entendidcomo opero en las filas pero no por columnas) como podeis ver mi nivel de programación es basico.

Mil Gracias por anticipado

Dim x As Integer
Dim a As Integer
Dim ultima As Integer
Dim cantitat As Double
Dim preu As Double
Dim total As Double
'_______________________________________

For x = 11 To 10000
If Hoja11.Cells(x, 1) = "" Then
ultima = x - 1
Exit For
End If
Next
'_______________________________________

For a = 11 To ultima
cantitat = Hoja11.Cells(a, 3)
preu = Hoja11.Cells(a, 4)
total = cantitat * preu
Hoja11.Cells(a, 5) = total
Exit For
Next

Buenas, revisando de nuevo rapidamente veo un error en la penultima linea simplemente quitala , pues el Exit For hace que salga del ciclo.....

saludos

Mil gracias era justo eso ya lo calcula bien, ahora ya solo me falta aprender a sumar jejejeje.
Mil gracias de nuevo

Ya lo he conseguido, (la suma) seguro que existe una manera mas facil y mas "ligera" para el programa pero de esta manera me funciona.....
Mil gracias de todos modos.
Lo cuelgo por si a alguien "novato" como yo le sirve


Dim rngs As Excel.Range
Dim b&, c&
Dim d As Integer
Dim e As Integer
Dim sumaTotalSortides As Integer

For d = 11 To 10000
If Hoja11.Cells(d, 5) = "" Then
final = d - 1
Exit For
End If
Next

b = 11: c = d
Set rngs = Range("e" & b & ":e" & c)
With rngs
.Select
End With


For e = 11 To 10000
If Hoja11.Cells(e, 5) = "" Then
sumaTotalSortides = e + 1
Exit For
End If
Next
Hoja11.Cells(sumaTotalSortides, 5) = "=SUM(" & "e" & b & ":e" & c & ")"


Set rng = Nothing