Busquedas agrupadas en columna

Tengo hecha la siguiente macro que me agrupa a partir de la fila 3 las búsquedas realizadas en la hoja de ENERO-2018 de "comisiones" y me las coloca en la hoja RESUMEN ENE 18. Me gustaría que al final de esa búsqueda apareciese la suma total y que pudiese agregar otra búsqueda (por ejemplo de "hoteles") en la hoja de ENERO-2018 y me la pegase a continuación del grupo de "comisiones" en la hoja de RESUMEN ENE 18, con la suma final igualmente.

Sub seleccionRegistros()
Dim nColumnas As Double
Dim nFilas As Double
Dim i, j, k, l As Double
Dim filaSalida As Double
Dim filaSalida2 As Double
Dim rango As Range
Dim control As Variant
Dim temporal As Variant
Dim entre As Boolean
Dim hojaOrigen As String
Dim hojaDestino As String
Dim columnaTrabajo As Integer
Dim filtro2 As String

On Error Resume Next
'Parámetros iniciales
hojaDestino = "RESUMEN ENE 18" 'nombre de la hoja destino
hojaOrigen = "ENERO-2018" 'nombre de la hoja de origen
columnaTrabajo = 3 'número de la columna de trabajo en la hoja de origen en donde se realizará la búsqueda del filtro
filtro2 = "Comisiones"
'Borrar la hoja destino si existe
Application.DisplayAlerts = False
Sheets(hojaDestino).Delete

'Agregar una nueva hoja de trabajo destino
Worksheets.Add
ActiveSheet.Name = hojaDestino

'Regresar el control a la hoja de origen de datos
Sheets(hojaOrigen).Select
'Calcular el número de filas y columnas de la hoja de origen de datos
Set rango = ActiveSheet.UsedRange
'nColumnas = rango.Columns.Count
nColumnas = 4
'nColumnas es el número de columnas a copiar de la hojaOrigen
nFilas = rango.Rows.Count
'fila del encabezado
For j = 8 To nColumnas
'j marca la fila de inicio de copiado en la hojaOrigen
temporal = Cells(1, j).Value
Worksheets(hojaDestino).Cells(1, j).Value = temporal
Next j
filaSalida2 = 3
'filaSalida es la fila de inicion en la hojaDestino
For i = 2 To nFilas
entre = False
For j = 3 To nColumnas
'j marca la columna de inicio en la hojaDestino
temporal = Cells(i, j).Value
control = Cells(i, columnaTrabajo).Value
If control = filtro2 Then
Worksheets(hojaDestino).Cells(filaSalida2, j).Value = temporal
entre = True
End If
Next j
'Control de la fila de salida
If entre Then
filaSalida2 = filaSalida2 + 1
End If
Next i
Sheets(hojaDestino).Select
Worksheets("RESUMEN ENE 18").Select
Range("C1") = "RESUMEN GASTO ENERO 2018"
End Sub