i need to change the value of all the cells in my range for "portfolio + the following working day data". So for instance, today I would need to have the values of my range as "portfolio05042015". I have already set my range as you can see

```
Sub SelectNonBlanks()
Dim rng As Range

Set rng = Range("A1:A10000")
rng.SpecialCells(xlCellTypeConstants).Select
End Sub

```

So now, i just need to change their values. I would really appreciate your help
Thank you