On Monday, September 17, 2012 5:03:02 PM UTC+2, Ben McClave wrote:
Hi,



Try this method. It worked for me.



With ActiveSheet.Range("LastRow")

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

.Insert (xlDown)

Application.CutCopyMode = False

.Offset(-1, 0).Select

End With



-Ben
Ben many thks. Will try that. Although couldn't understand what wrong with my code
K