Insert shift down issue macro issue

Hi TMS,

Thanks for your reply.

I ran your code but received a run time 'error 438 object doesn't support property or method' on the following line.

Thanks

Simon

.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove