Sub addtosales()
Rem -----------------------
If IsEmpty(Cells(5, 5)) Then
MsgBox "Plz input invo no"
Exit Sub
End If
Rem -------------------------
If IsEmpty(Cells(13, 1)) Then GoTo dd
Rem --------------------------------
xNewR = Sheet4.Cells(1, 1).CurrentRegion.Rows.Count + 1
Rem -----------------------------------
Sheet4.Cells(xNewR, 1) = Cells(4, 5)
Sheet4.Cells(xNewR, 2) = Cells(5, 5)
Sheet4.Cells(xNewR, 3) = Cells(6, 5)
Rem -------------------------------------------
Rem -----------------------------------
Sheet4.Cells(xNewR, 4) = Cells(13, 1)
Sheet4.Cells(xNewR, 5) = Cells(13, 2)
Sheet4.Cells(xNewR, 6) = Cells(13, 3)
Sheet4.Cells(xNewR, 7) = Cells(13, 4)
Sheet4.Cells(xNewR, 8) = Cells(13, 5)
Rem -------------------------------
Rem -----------------------------------
Cells(13, 1) = ""
Rem Cells(13, 2) = ""
Rem Cells(13, 3) = ""
Cells(13, 4) = ""
Rem -----------------------------------
dd:
Cells(5, 5) = ""
Cells(6, 5) = ""
End Sub