Não é mais simples deixar a pasta pre-configurada?

Não ha necessidade de fazer este tipo de configuração pelo VBA se deixar uma folha como modelo a ser seguido.

Ola Marcelo, fico grato pela dica e orientação, tenho feito conforme voce havia dito para outros relatorios mais simples, como neste caso estou configurando de outra maneira, para aprender o funcionamento no momento, caso tenha alguma dica de como inserir uma linha abaixo do cabeçalho agradeceria pela ajuda, abraço

Tente assim:

Sub Cabecalho()
         ActiveSheet.PageSetup.CenterHeader = "&lEmpresa: " _
         & Empresa & "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P " _
         & " Endereço da empresa"
End Sub

Troque o "Endereço da empresa" pela informação que vc desejar mantendo as aspas

Ola Marcelo, muito obrg pela dica, só que esta linha na qual voce havia descrito saiu na continuação da primeira linha, será que existe algum comando em que eu possa inserir nesta linha em que voce indicou que pule para a proxima linha, seria legal, assim resolveria, ja pesquisei e não consegui encontrar nada relacionado, caso tenha conhecimento, ficarei grato pela orientação, abraço

Ola Pessoal, consegui inserir uma segunda linha no cabeçalho, só que não estou conseguindo deixa-la logo abaixo da primeira linha do cabeçalho, alguem poderia me ajudar, por favor, obrg a todos que postarem no auxilio, grato, abraço
Obs.: Gostaria que o endereço estive logo abaixo da primeira linha do cabeçalho

Sub Cabecalho_Rodape()
Dim lin As Integer
        'Impressao do Cabeçalho
        ActiveSheet.PageSetup.CenterHeader = "  &lEmpresa: " _
         & W_Empresa & "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P "
                
        'Imprimir a segunda linha do cabecalho
          ActiveSheet.Cells(ActiveCell.Row) = "&l" & W_Endereco
        ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(1).Address

Ola Pessoal, fiz algumas modificações no código para melhorar, se alguem tiver conhecimento de como inserir uma linha em branco abaixo da segunda linha do cabeçalho, por gentileza estou precisando dessa ajuda, grato a todos, obrg

Sub cabecalhox()
  
   With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0.7)
'       .BottomMargin = Application.InchesToPoints(0.1)
        .HeaderMargin = Application.InchesToPoints(0.4)
        .LeftHeader = "Empresa:" & W_Empresa
        .CenterHeader = "Relatorio Vendas"
        .RightHeader = "Emissão:" & "&D  " & "  Página: &P "
   End With
        
   'Imprimir a segunda linha do cabecalho
        ActiveSheet.Cells(ActiveCell.Row) = "&l" & W_Endereco
        ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(1).Address
[b]-----> Gostaria que apos esta linha impressa pudesse ocorrer uma linha em branco[/b]
    
End Sub