Macro muy especifico de suma y total

Te mando mi solución. Posiciónate en la celda K1 y ejecuta esta macro:

Sub ejemplo()
'por luismondelo
Do While ActiveCell.Value <> ""
If Right(ActiveCell.Offset(0, -1), 7) = "general" Then
ActiveCell.Offset(0, 1).Value = suma
Exit Sub
End If
If Left(ActiveCell.Offset(0, -1), 2) = "Cu" Then
espacios = ActiveCell.Value
ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-espacios, 0)))
suma = suma + ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

recuerda finalizar la consulta

muchas gracias por tu propuesta pero lo que pasa es que necesito que la macro se ejecute en todas las hojas y aparte que cree debajo de cuenta general una celda que diga TOTAL (en k) y a su derecha (en L) poner la suma total.

lo primero intente solucionarlo asi:

Sub ejemplo()
'por filas
For Each su In Sheets
su.Select
su = Range("k1").Select
Do While ActiveCell.Value <> ""
If Right(ActiveCell.Offset(0, -1), 7) = "general" Then
ActiveCell.Offset(0, 1).Value = suma
Exit Sub
End If
If Left(ActiveCell.Offset(0, -1), 2) = "Cu" Then
espacios = ActiveCell.Value
ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-espacios, 0)))
suma = suma + ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
Next su
End Sub

pero no puedo ejecutarlo debido a un error de compilación para ser exacto error 1004

ayuda por favor

Ok, pues te mando la solución para hacerlo en todas las hojas de tu libro

Sub ejemplo()
'por luismondelo
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
Range("k1").Select
Do While ActiveCell.Value <> ""
If Right(ActiveCell.Offset(0, -1), 7) = "general" Then
ActiveCell.Offset(1, 1).Value = suma
ActiveCell.Offset(1, -1).Value = "SUMA TOTAL"
Exit Sub
End If
If Left(ActiveCell.Offset(0, -1), 2) = "Cu" Then
espacios = ActiveCell.Value
ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-espacios, 0)))
suma = suma + ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
Next
End Sub

recuerda finalizar la consulta

gracias a tu ayuda ya vi cual era el problema, debido a que tenia una hoja oculta ocurría un error con select del tipo worksheet y el código funciona bien pero a la hora de ejecutar el macro solo se queda en la primera hoja debido al Exit Sub después de suma total, si lo quito me genera errores en la suma,

y una pregunta mas, en la solución que me diste el next no debería llevar la variable hoja?

gracias por tus soluciones tan rápidas

Ok, la macro correcta quedaría así:

Sub ejemplo()
'por luismondelo
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
Range("k1").Select
Do While ActiveCell.Value <> ""
If Right(ActiveCell.Offset(0, -1), 7) = "general" Then
ActiveCell.Offset(1, 1).Value = suma
ActiveCell.Offset(1, -1).Value = "SUMA TOTAL"
goto salto
End If
If Left(ActiveCell.Offset(0, -1), 2) = "Cu" Then
espacios = ActiveCell.Value
ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-espacios, 0)))
suma = suma + ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
salto:
Next
End Sub

en el next no es necesario poner la variable

Recuerda finalizar