'Run time error 438 Object does not support this property or method

[GEORGE PERRY]

Sub SaveAndClear()
Dim LastItemRow As Long, FirstDBRow As Long, TotalRows As Long
With Sheet1
   LastItemRow = .Range("K9999").End(xlUp).Row 'Last Item Row
   TotalRows = LastItemRow - 9 'Total Items
     FirstDBRow = Sheet3.Range("A99999").End(xlUp).Row + 1 'First Avail Row
     Sheet3.Range("A" & FirstDBRow & ":A" & FirstDBRow + TotalRows - 1).Vavue = .Range("M5").Value 'Receipt #
   Sheet3.Range("B" & FirstDBRow & ":B" & FirstDBRow + TotalRows - 1).Vavue = .Range("M6").Value 'Order Date
   Sheet3.Range("C" & FirstDBRow & ":C" & FirstDBRow + TotalRows - 1).Vavue = .Range("M7").Value 'Cashier
   Sheet3.Range("D" & FirstDBRow & ":G" & FirstDBRow + TotalRows - 1).Vavue = .Range("K10:N" & LastItemRow).Value 'All Item Detail
   .Shapes("FooterGrp").Visible = msoFalse 'Hide Footer Group Shape
   On Error Resume Next
   .Shapes("ItemPic").Delete
   On Error GoTo 0
   .Range("K10:N9999").ClearContents
   .Calculate
   .Range("M5").Value = .Range("B7").Value 'Next Receipt #
   .Range("B6,E3:F3,F6,F8,I7").ClearContents 'Clear Item Fields
   .Range("E10").Select
End With
End Sub

[p45cal]

Vavue should be Value

[GEORGE PERRY]

Thanks boss appreciate