Hi Guys,

I posted this yesterday and it worked the great the first
time i tried it, but since then an error stops it at the
second paste operation ?. Does anybody know why this is
happening ?


Private Sub CommandButton6_Click()
ActiveSheet.Cells.Copy
Sheets("Cashflow Chart Sheet").Select
With ActiveSheet
.Range("A1").PasteSpecial Paste:=xlAll,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveSheet
ActiveSheet.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Range("A2:I7").Clear
.Range("A29:I29").ClearContents
.Range("D13").ClearContents
.Range("A1").Select
End With
End With
End Sub