Prevenir copiar encima de totales lista

Hola Grupo,por favor con el siguiente código paso los datos de mis
facturas a una base de datos (lista), pero tengo un total calculado
para cada columna al final de la lista que debo mantener , se puede
prevenir que la copia "pise" o machaque los totales insertando siempre
una fila en blanco al final u otra forma?

With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row) 'HALLA
EL FINAL DEL RANGO PARA COLOCAR A PARTIR DE AHI'
.Offset(1).Resize(, 9) = Datos_Factura
End With
End With

Muchas gracias por la ayuda