Changement de police et bordure sur la dernière ligne

Bonjour,

Je voudrai faire 1 macro d'un fichier Excel pour mettre la dernière ligne de plusieurs onglets avec une police de : 13, calibri, gras et mettre une bordure sur le contour et l'intérieur.
Il faut noter que :
- ces onglets n'ont pas le même nombre de ligne
- j'ai besoin de cette "mise page" seulement" sur les colonnes de F à J

J'ai "bidouillé" le code en-dessous pour la police (13, calibri, gras)
1/Je pense qu'il y a moyen de faire un meilleur code. J'aimerai avoir vos conseils
2/ J'aurai aussi besoin d'aide pour le code pour la bordure

'Changer la police de la ligne "TOTAL" 

        'Pour colonne F

        Range("F80000:J80000").End(xlUp).Offset(0, 0).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        ' Pour colonne G

        Range("F80000:J80000").End(xlUp).Offset(0, 1).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

            

        'Pour colonne H

        Range("F80000:J80000").End(xlUp).Offset(0, 2).Select

         With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        'Pour colonne I

        Range("F80000:J80000").End(xlUp).Offset(0, 3).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        'Pour colonne J

        Range("F80000:J80000").End(xlUp).Offset(0, 4).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True