------------------------
Sub addtosales()
Rem -----------------------
If IsEmpty(Cells(5, 5)) Then
MsgBox "Plz input invo no"
Exit Sub
End If
Rem -------------------------
For R = 13 To 31
If IsEmpty(Cells(R, 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(R, 1)
Sheet4.Cells(xNewR, 5) = Cells(R, 2)
Sheet4.Cells(xNewR, 6) = Cells(R, 3)
Sheet4.Cells(xNewR, 7) = Cells(R, 4)
Sheet4.Cells(xNewR, 8) = Cells(R, 5)
Rem -------------------------------
Rem -----------------------------------
Cells(R, 1) = ""
Rem Cells(R, 2) = ""
Rem Cells(R, 3) = ""
Cells(R, 4) = ""
Rem -----------------------------------
Next
dd:
Cells(5, 5) = Cells(5, 5) + 1
Cells(6, 5) = ""
End Sub