BruceJ wrote:
but I need to have it fill down in column BZ as well as A Both from the row
above the paste
How would I modify this?

know that it is this section
Range(myCell(0), Range("B65536").End(xlUp)(1, 0)).Select 'mycell(0)
needs to be mycell(0,78) but I am not sure about the rest..
Selection.DataSeries Type:=xlLinear, Step:=1


Range(myCell(0,78), Range("B65536").End(xlUp)(1,77).Select
Selection.DataSeries Type:=xlLinear, Step:=1

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup