View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Carim Carim is offline
external usenet poster
 
Posts: 510
Default How can I paste in the opposite direction?

Hi,

To invert copy ...

Sub InvertCopy()
Dim i As Integer
Dim j As Integer
j = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For i = 1 To j
Cells(i, 1).Copy Cells(j - i + 1, 2)
Next i
End Sub

HTH