How do I change this code?

O

OrlaLynch

This copies a line up for me but I can't get it to copy a line down. How do I
change it?

With ActiveCell

.EntireRow.Copy .Offset(-1, 1 - .Column)
End With
 
R

Rick Rothstein \(MVP - VB\)

As a guess... change the -1 to 1....

..EntireRow.Copy .Offset(1, 1 - .Column)

Rick
 
Top