E que erro isso está retornando?

Aqui Seu código funciona perfeitamente...

Ola xlarruda, na verdade não consegui ainda fazer aparecer na tabela RelPedido a totalização dessas colunas.
como não tenho experiencia em excel, estou tentando de acordo com códigos dos quais tenho tirado da internet.
Minha necessidade atualmennte é de somar a coluna F8 da TabVendas e o resultado (Total) transferir para o Relatorio (RelPedido) na coluna F21

Private Sub CommandButton1_Click()
sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(sheets("TabVendas").Range("F8:F19"))
End Sub
 

Ola xlarruda, eu consegui fazer o código funcionar, totalizando no relatório, só que, esta somando apenas o último registro lido na TabVendas, conforme segue abaixo as tabelas e o Relatório
Obrg pelo envio da aula da totalização, deixei guardado para possíveis utilização.

Este meu código fonte

Sub ImprimirPedido()
Dim LINHA As Integer
Dim LINHAREL As Integer
Dim LINHATAB As Integer
Dim SumTotal As Integer

'Limpando os registros do RelPedido - para receber novos dados
 Sheets("RelPedido").Range("A8:F18").Clear
 Sheets("RelPedido").Range("B3:B4").Clear
 Sheets("RelPedido").Range("D4").Clear
 Sheets("RelPedido").Range("F21").Clear

'Copiar dados do Cabecalho para o Relatorio
Sheets("TabVendas").Range("E2").Copy Destination:=Sheets("RelPedido").Range("B3")
Sheets("TabVendas").Range("B2").Copy Destination:=Sheets("RelPedido").Range("B4")
Sheets("TabVendas").Range("D2").Copy Destination:=Sheets("RelPedido").Range("B5")

LINHATAB = 2 'Pegar os dados da TabVendas A2
LINHAREL = 8 'Pegar os dados da RelPedido A7
   
   
    Worksheets("RelPedido").Range("B3").Font.ColorIndex = 3
    
   
  Do Until TabVendas.Cells(LINHATAB, 12) = ""
    If TabVendas.Cells(LINHATAB, 12) = Pedidos Then
     
     'PRODUTO
     Sheets("TabVendas").Cells(LINHATAB, 1).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 1)
     'DESCRICAO
     Sheets("TabVendas").Cells(LINHATAB, 3).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 2)
     'QUANTIDADE
     Sheets("TabVendas").Cells(LINHATAB, 7).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 4)
     'PRECO
     Sheets("TabVendas").Cells(LINHATAB, 6).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 5)
     'TOTAL
     Sheets("TabVendas").Cells(LINHATAB, 8).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 6)
      
         
         SumTotal = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
         Sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
          
        LINHAREL = LINHAREL + 1
  
    End If
      LINHATAB = LINHATAB + 1
  Loop
  
  Sheets("RelPedido").Range("F21").Value = SumTotal
  
   Criar_PDF
   
End Sub

Substitua estas linhas:

SumTotal = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
Sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))

Por:

SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
Sheets("RelPedido").Range("F21").Value = SumTotal

Ola xlarruda
Desculpa da demora em tentar enviar o Relatório, pois não estava facil de transforma-lo em 50kb, mais peguei seu código
conforme havia modificado, ESTA FUNCIONANDO PERFEITAMENTE, muito obrg por sua ajuda, vou aprendendo com suas dicas e orientações, abraço

Quando enviar código, aperte o botão Code.
Marque como resolvido na parte que resolveu sua dúvida, não na sua própria parte.