vba error 1004 pastespecial method of Worksheet class failed

I have a 4 x 5 range of cells that I want to put different coloured circles in depending on the value...

so for each cell I create the circle (which doesn't put it in a cell) then cut it and paste it into the cell
everything works well except when it gets to the paste...

excel hangs for 30 seconds then gives the above error..

when I debug and hit continue (f5) it works,,,
and continues on..
So I get what I want in 10 minutes...

here is the pertinent code..
I cannot see any special place to insert the code so I will paste it here..

ActiveSheet.Shapes.AddShape(msoShapeOval, 564.75, 424.5, 57.75, 55.5).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(79, 129, 189)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.TextFrame2
.VerticalAnchor = msoAnchorMiddle
.HorizontalAnchor = msoAnchorCenter
End With
Selection.ShapeRange.Height = 72
Selection.ShapeRange.Width = 72


Application.CutCopyMode = False
Selection.Cut
On Error GoTo Tryagain
Tryagain: Range(Cells(j, i), Cells(j, i)).Select
ActiveSheet.PasteSpecial