My script currently reads:

Sub Copyandpaste()
'
' Copyandpaste Macro
' Macro recorded 09/02/2006 by michael.hebblewhite
'

'
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Rows("32:32").Select
Application.CutCopyMode = False
Selection.Copy
Rows("33:33").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-30
Range("A1").Select
ActiveWindow.SmallScroll Down:=0
End Sub

Its the second copy and paste thats the issue.....


--
Mikey2005
------------------------------------------------------------------------
Mikey2005's Profile: http://www.excelforum.com/member.php...o&userid=31316
View this thread: http://www.excelforum.com/showthread...hreadid=510664