次のサンプルは、ヘッダーにセルA1の情報、フッターにセルA2
の情報を設定し、印刷プレビューを表示するマクロです。

Sub SetPageData()

    ' アクティブシートのPageSetupオブジェクトの各プロパティに値を設定
    With ActiveSheet.PageSetup
       ' 中央に配置するヘッダーを設定
       .CenterHeader = Range("A1").Value
       ' 中央に配置するフッターを設定
       .CenterFooter = Range("A2").Value
    End With
    ' 印刷プレビューを表示
    ActiveSheet.PrintPreview
    
End Sub

　ちなみに、マクロ以外ではヘッダーやフッターにグラフィックやセル参照
を挿入することはできません。すべてのページにセルの内容やグラフィック
を印刷する場合は、メニューの「ファイル」「ページ設定」で表示される
ダイアログ画面の「シート」タブの「印刷タイトル」のところにある
「行のタイトル」、「列のタイトル」に、行や列を指定することで実現可能
です。(複数行、複数列の指定も可能)