Shoutbox

code:

---

Sub AddOrder()
'
' AddOrder Macro
' Macro recorded 26/01/2007 by 21may_g
'

'
    Sheets("Data Arrange").Select
    Range("B5:N5").Select
    Selection.Copy
 
Dim cellcontents As Integer
Sheets("Orders").Select

Range("A5").Select
cellcontents = Range("A65536").End(xlUp).Select

cellcontents = ActiveCell.Value
cellcontents = cellcontents + 1
ActiveCell.Offset(1, 0) = cellcontents

Selection.PasteSpecial Paste:=xlPasteValues

---

is my macro....

This is the result.


Click to enlarge

what i want to do is described in the picture, even my ict teacher cant get it to work ¬_¬ i was ment to start testing on monday, and i cant get this bit finished.

Thanks