1. 下の Private Sub ...... End Sub までをコピーします。
2. Excelメニューのツール→マクロ→Visual Basic Editorでエディタを立ち上げます。
3. Visual Basicメニューの表示→プロジェクトエクスプローラでプロジェクトを表示させます。
4. VBAProject(ファイル名)の中のThisWorkbookをクリックしてコードウインドウを表示します。
5. コードウインドウにカーソルをあわせて貼り付けます。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
    .LeftFooter = Range("A1").Value      '----セルA1の値を左フッターに表示
    .CenterFooter = Range("A2").Value  '----セルA2の値を中フッターに表示
    .RightFooter = Range("A3").Value    '----セルA3の値を右フッターに表示
End With
Application.ScreenUpdating = True
End Sub