You are in exactly the right place - or maybe you should be in the Helproom click here - but no matter.
You cannot attach your file but you can post your code. Here is an example of what you want to do:
ReDim Preserve Titles(1 To UBound(Titles) + 1)
For iT = UBound(Titles) To 2 Step -1
Titles(iT) = Titles(iT - 1)
No doubt this is as clear as mud. Pleaser post back withy your example and what you want to achieve.