Вот макрос для копирования колонтитулов активного листа на другие листы книги.  
 
Sub andron359()  
 
Dim s As Worksheet  
With ActiveSheet.PageSetup  
   For Each s In Worksheets  
       If s.Name <> ActiveSheet.Name Then  
           s.PageSetup.LeftHeader = .LeftHeader  
           s.PageSetup.CenterHeader = .CenterHeader  
           s.PageSetup.RightHeader = .RightHeader  
           s.PageSetup.LeftFooter = .LeftFooter  
           s.PageSetup.CenterFooter = .CenterFooter  
           s.PageSetup.RightFooter = .RightFooter  
       End If  
   Next  
End With  
End Sub