Copypicture from Excel to PowerPoint

Hi,
In a VBA routine a selected ranges in Excel (2003) is copied and paste in
PowerPoint. The routine runs a loop with an number of entities.
A number of rows and columns in the selected area are grouped on a lower
level and only cells on level1 are visiblebefore CopyPicture.It works OK
apart from one problem. The problems is that some of the columns, furthest to
the right, are not included in the PowerPoint shape.
It can vary a little some what which user runs the routine.
Below extract from the code.
Thanks in advance for any help.

"Worksheets("Forecast Report").Range(Cells(11, 25), Cells(53, 51)).CopyPicture
pptapp.Activate
pptapp.Presentations(ppfilename).Slides(pp2).Shapes.Paste
shn = pptapp.Presentations(ppfilename).Slides(pp2).Shapes.Count
ppheigt = 320
Set Shape4 = pptapp.Presentations(ppfilename).Slides(pp2).Shapes(shn)
With Shape4
.Name = compl & ppcur & "shapetable"
.Top = 75
.Left = 20
.Height = ppheigt
End With "