Try putting this at the beginning of your code:
Application.DisplayAlerts = False
Set it back to True at the end.
like this
Public Sub InsSumRows()
'Insert Summary Footer
Application.DisplayAlerts = FALSE
Dim mySpace As Range
Worksheets("FA_Template").Range("faTempSumRows").SpecialCells(xlCellTypeVisible).Copy
Range("a1").End(xlDown).Offset(2, 0).Select
Set mySpace = Selection
With Selection
.PasteSpecial Paste:=xlPasteFormulas, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.DisplayAlerts = TRUE
End Sub
Bookmarks