Sumar Columna a la hora de imprimir

Que tal, tengo una macro para imprimir un rango de filas de acuerdo a un determinado rango de fechas, todo funciona correctamente, ahora lo que necesito es que sume la columna E de ese rango de impresión.
Te pongo las 2 macros que utilizo para esto.
Espero Me haya dado a entender.
Gracias de Antemano
Código para el objeto de Rango de fechas ha imprimir.
Private Sub CommandButton1_Click()
On Error Resume Next
iniciof = TextBox1
finalf = TextBox2
numcopias = SpinButton1
If Err = 13 Then
MsgBox "Digite fechas correctas.", vbCritical, "ERROR"
TextBox1 = ""
TextBox2 = ""
Exit Sub
Else
If iniciof <= finalf Then
Unload UserForm2
Else
MsgBox "El rango no es correcto.", vbCritical, "ERROR"
TextBox1 = ""
TextBox2 = ""
Exit Sub
End If
End If
Application.Run "limitar"
End Sub
Codigo para imprimir reporte
Private Sub limitar()
Dim rangoimp As String
Application.ScreenUpdating = False
Range("B65536").Select
Selection.End(xlUp).Select
Do
If ActiveCell <= finalf Then
hasta = ActiveCell.Row
Exit Do
End If
ActiveCell.Offset(-1, 0).Select
Loop While ActiveCell <> ""
Range("B7").Select 'CELDA DONDE COMIENZAN LAS FECHAS
Do
If ActiveCell >= iniciof Then
desde = ActiveCell.Row
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell <> ""
If desde > 0 And hasta > 0 Then
If hasta >= desde Then
rangoimp = "$" & desde & ":" & "$" & hasta
ActiveSheet.PageSetup.PrintArea = rangoimp
ActiveWindow.SelectedSheets.PrintOut Copies:=numcopias, Collate:=True
Else
MsgBox "No hay datos para estas fechas.", vbCritical, ""
End If
Else
MsgBox "No hay datos para estas fechas.", vbCritical, ""
End If
ActiveSheet.PageSetup.PrintArea = ""
Range("B6").Select
End Sub
0

Añade tu respuesta

Haz clic para o