Sub MM1()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lr + 1).Value = "Average"
Range("A" & lr + 1 & ":G" & lr + 1).HorizontalAlignment = xlCenterAcrossSelection
Range("H" & lr + 1).Value = Range("H" & lr).Value
With Range("A" & lr + 1 & ":H" & lr + 1).Font
.FontStyle = "Bold"
.Size = 11
End With
With Range("A" & lr + 1 & ":H" & lr + 1).Interior
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
End With
End Sub