How about this

With Sheets("Power Units")
.Range("A3:AV3").AutoFill Destination:=.Range(.Cells(4, 1), ..Cells((response - 2) * 0.4, 48)), _
Type:=xlFillDefault
.Range(.Cells(4, 1), .Cells((response - 2) * 0.4, 48)).Copy
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jim Berglund" wrote in message news:iQ4Qd.388530$6l.283192@pd7tw2no...
I created the following code, and get 1004 errors. Could you please explain why?

Sheets("Power Units").Activate
With ActiveSheet
.Range("A3:AV3").Select
.Selection.AutoFill Destination:=.Range(.Cells(4, 1), ..Cells((response - 2) * 0.4, 48)), Type:=xlFillDefault

Range(Cells(4, 1), Cells((response - 2) * 0.4, 48)).Select
Selection.Copy
End With

I've tried it with the "."'s all over, wihtout success. I guess I don't know why these errors occur - It seems a bit arbitrary when they occur.

Thanks in advance...

Jim Berglund