Summarising the data isn't an issue, i have wrote some code which works a treat, the only part i was stuck on was trying to get the summarised results displayed in a messagebox so i could have a button which when clicked would display the summarised results without re-arranging the data on the sheet. so something like


Machine1 = Range("AI7").Value
CoNo1 = Range("AJ7.Value
Amout1 = Range("AK7.Value

Machine2= Range(AI8").Value
CoNo2 = Range("AJ8").Value
Amount2 = Range("AK8").value

(For however many machines in summarised data)

msgbox " & Machine1 & CoNo1 & Amount1 & VbCrLf & Machine2 & CoNo2 & Amount2 & "

i hope you get the idea, if this is possible it would be prefered.