[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

[Rick Rothstein \(MVP - VB\)[_656_]]

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

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

Rick


"OrlaLynch" wrote in message
...
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