Sub Gravar_Vendas()

 Dim Data As Date
 Dim CodCliente As Double
 Dim Cliente As Double
 Dim Contato As Double
 Dim Cidade As Double
 Dim Uf As Double
 Dim Descricao As String
 Dim CodProd As Double
 Dim Quant As Integer
 Dim Preco As Double
 Dim Total As Double
 Dim UltimaCel As Integer

 Dim QuantDados As Integer
 Dim Linha As Integer

 QuantDados = Sheets("Vendas").Range("B22").End(xlUp).Row

 Linha = 7

 While Linha < QuantDados + 1

 Sheets("Vendas").Select
 Data = Range("I4").Value
 CodCliente = Range("D4").Value
 Cliente = Range("F4").Value
 Contato = Range("D5").Value
 Cidade = Range("G5").Value
 Uf = Range("J5").Value
 Descricao = Range("C" & Linha).Value
 CodProd = Range("B" & Linha).Value
 Quant = Range("G" & Linha).Value
 Preco = Range("H" & Linha).Value
 Total = Range("I" & Lina).Value
 
 Sheets("relatorio Vendas").Select

 UltimaCel = Range("B65000").End(xlUp).Row + 1

 Range("B" & UltimaCel).Value = Data
 Range("C" & UltimaCel).Value = CodCliente
 Range("D" & UltimaCel).Value = Cliente
 Range("E" & UltimaCel).Value = Contato
 Range("F" & UltimaCel).Value = Cidade
 Range("G" & UltimaCel).Value = Uf
 Range("H" & UltimaCel).Value = Descricao
 Range("I" & UltimaCel).Value = CodProd
 Range("J" & UltimaCel).Value = Quant
 Range("K" & UltimaCel).Value = Preco
 Range("L" & UltimaCel).Value = Total
 Linha = Linha + 1
 Wend
 
 Range("B7:H21").ClearContents
 Range("H7").Value = ""
 Range("D4").Value = ""

 "MsgBox "Pedido Salvo"
  End Sub