Ola Pessoal, consegui fazer este relatório com a ajuda do pessoal deste forum, agora estou necessitando fazer com que seja impresso as linhas zebradas, Conforme segue um exemplo em anexo. Grato a todos que postarem no auxilio, abraço
Este o código que tenho
Sub ImprimirVDClientes()
Dim LINHA As Integer
Dim LINHAREL As Integer
Dim LINHATAB As Integer
Dim SumTotal As Double
Dim SumTotalx As Double

SumTotal = Format(SumTotal, "##,##0.00")

LINHATAB = 2 'Pegar os dados da TabVendas A2
LINHAREL = 8 'Pegar os dados da RelPedido A7

Do Until TabVendas.Cells(LINHATAB, 12) = ""
If TabVendas.Cells(LINHATAB, 12) > 0 Then

'PRODUTO
Sheets("TabVendas").Cells(LINHATAB, 1).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 1)
'DESCRICAO
Sheets("TabVendas").Cells(LINHATAB, 3).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 2)
'QUANTIDADE
Sheets("TabVendas").Cells(LINHATAB, 7).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 4)
'PRECO
Sheets("TabVendas").Cells(LINHATAB, 6).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 5)
'TOTAL
Sheets("TabVendas").Cells(LINHATAB, 8).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 6)

LINHAREL = LINHAREL + 1

End If
LINHATAB = LINHATAB + 1
Loop

End Sub