I am using the following to copy text from above into the blank cells. I am wondering if anyone can help me with adding the word 'Total' on the end of the text copied from the cell above.
Sub TextFromAbove()
Dim columnValues As Range, i As Long
Set columnValues = Selection
For i =...