Hi!
Do you mean like this?
Book1 |
---|
|
---|
| A | B | C | D | E | F | G | H |
---|
1 | 45 | 23 | 12 | 44 | 45 | 56 | | 56 |
---|
2 | 56 | 12 | 23 | 89 | 46 | | | 46 |
---|
3 | 68 | 10 | 45 | 78 | | | | 78 |
---|
4 | 91 | 23 | 56 | | | | | 56 |
---|
5 | 79 | 45 | | | | | | 45 |
---|
6 | 52 | | | | | | | 52 |
---|
|
---|
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Triangle()
lastrow = Range("a65536").End(xlUp).Row
maxcol = lastrow
<SPAN style="color:#00007F">For</SPAN> i = lastrow<SPAN style="color:#00007F">To</SPAN> 1<SPAN style="color:#00007F">Step</SPAN> -1
Range(Cells(i, maxcol + 2), Cells(i, maxcol + 2)).Value = Range(Cells(i, maxcol - i + 1), Cells(i, maxcol - i + 1))
<SPAN style="color:#00007F">Next</SPAN> i<SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN></FONT>