Macro para insertar filas con condicionantes y mantener las fórmulas de la fila anterior

Es la primera vez en un foro.. Disculpen si no me se explayar..

Tengo un archivo de excel que quiero que a través de botones ejecutar una macro que me inserte una fila por encima de dos filas del "TOTAL"... Lo cual ya logre por una solución del foro... Pero además necesito que en ciertas columnas por ejemplo la F, G, J, QUE y otras... Se copie de la fórmula de las filas anteriores..

La parte de arrastrar fórmula la usaba en anterior proyecto dado que insertaba filas siempre en una misma fila..

Private Sub CommandButton3_Click()
'desprotege hoja
    ActiveSheet.Unprotect Password:="XXX"
    col = "A"           'cambiar por la columna de la condición
    condicion = "TOTAL"  'cambiar por la palabra que cumpla la condición
    For i = Range(col & Rows.Count).End(xlUp).Row To 1 Step -1
        If Cells(i, col) = condicion Then
            Rows(i - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
'arrastra fórmula de col B a la nueva fila
    Range("F26").Select
    Selection.AutoFill Destination:=Range("F26:F27"), Type:=xlFillDefault
    Range("G26").Select
    Selection.AutoFill Destination:=Range("G26:G27"), Type:=xlFillDefault
    Range("J26").Select
    Selection.AutoFill Destination:=Range("J26:J27"), Type:=xlFillDefault
    Range("M26").Select
    Selection.AutoFill Destination:=Range("M26:M27"), Type:=xlFillDefault
    Range("N26").Select
    Selection.AutoFill Destination:=Range("N26:N27"), Type:=xlFillDefault
    Range("Q26").Select
    Selection.AutoFill Destination:=Range("Q26:Q27"), Type:=xlFillDefault
    Range("R26").Select
    Selection.AutoFill Destination:=Range("R26:R27"), Type:=xlFillDefault
'selecciona 1 celda cualquiera y vuelve a proteger, con opción de insertar filas
    Range("A27").Select
    'ActiveSheet.Protect Password:="XXX", AllowFormattingRows:=True, AllowFormattingCells:=True, Contents:=True, Scenarios:=False, AllowDeletingRows:=True
End Sub