Ok I have the first part working with one major problem. When I run the code below it will display a text value for every page in the workbook. I only need it to display a value in "J" on the "initiating devices" page. The other pages have different column headings. Also it only will work when the macro is run manually, I would like to know if it could be run as the user enters the status of a devices, this will update values on another page in real time. Here is the code I have been using so far with limited success Sub calctestvalues() Dim lng As Long lng = Cells(Rows.Count, "B").End(xlUp).Row Range("J7:J" & lng).Value = Evaluate("=B7:B" & lng & "&E7:E" & lng) End Sub