I have the following code:

Sub cutpasteseries()
Dim myCell As Range
Selection.Copy
Sheets("Finished Results").Select
Set myCell = Range("A65536").End(xlUp)(2)
myCell.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Range(myCell(0), Range("B65536").End(xlUp)(1, 0)).Select
Selection.DataSeries Type:=xlLinear, Step:=1
Range(myCell, Range("A65536").End(xlUp)).EntireRow.Select
Selection.Copy
End Sub

It does what it is supposed to do (copy the highlighted cells, to "Finished
Results" and then fill col A down from the results in A from the row above.

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, Range("A65536").End(xlUp)).EntireRow.Select


Thanks!
Bruce

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