Add additional text on the end of text copied from above

[Page0727]

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 = 1 To columnValues.Rows.Count
If columnValues.Cells(i, 1).Value = "" Then
columnValues.Cells(i, 1).Value = columnValues.Cells(i - 1, 1).Value
End If
Next
End Sub

Than you

 

[Page0727]

A simple

columnValues.Cells(i, 1).Value = columnValues.Cells(i - 1, 1).Value + " Total"

works