View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Payal[_2_] Payal[_2_] is offline
external usenet poster
 
Posts: 7
Default Insert Grand total at the end

Hi, I am inserting grand total at the end of the result, which is
return by a query. I need to calculate from row 49. Its calculating
fine except for at L49 cell which is the first cell...its showing
total twice i.e. if the last row is 70...the total is shown at L71 and
L72...any idea what is wrong in the code??

Lastrowa = Range("b65536").End(xlUp).Row

Range("l49").End(xlDown).Offset(1, 0).Value = _
"=SUM(l49:l" & Range("l49").End(xlDown).Row & ")"

Set desti = Range("l" & Lastrowa + 1 & ":bo" & Lastrowa + 1)
Range("l" & Lastrowa + 1).Copy desti

Thanks
Payal