How to deduct one row

[Bryan123]

Hi All,

How do you deduct 1 row from the last row selected using ctrl+shift+down? In this way, I won't be including "Grand Total" to the graph that I will be creating.

Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select

Row Labels	> 5 Days	NA	Uncorrected	Within 1 Day	Within 5 Days	Grand Total
Claims - Credit & Surety Claims				1		1
Claims - Long Tail				1	2	3
Claims - Short Tail		6	1			7
Claims - Workers Compensation - Claims	1	1		3		5
Policy Support Services - Credit Control	1	4		6		11
Policy Support Services - Elders		2		6		8
Policy Support Services - Financial Institution		2	2	6	1	11
Policy Support Services - Motorcycle		4				4
Grand Total	2	19	3	23	3	50

<colgroup><col width="305" style="width: 229pt; mso-width-source: userset; mso-width-alt: 9760;"> <col width="129" style="width: 97pt; mso-width-source: userset; mso-width-alt: 4128;"> <col width="27" style="width: 20pt; mso-width-source: userset; mso-width-alt: 864;"> <col width="96" style="width: 72pt; mso-width-source: userset; mso-width-alt: 3072;"> <col width="93" style="width: 70pt; mso-width-source: userset; mso-width-alt: 2976;"> <col width="101" style="width: 76pt; mso-width-source: userset; mso-width-alt: 3232;"> <col width="91" style="width: 68pt; mso-width-source: userset; mso-width-alt: 2912;"> <tbody> </tbody>

Thank you
Bryan

 

[njimack]

range(cells(5,1),cells(5,1).end(xldown).offset(-1))

 

[Fluff]

Try

   Range("A5", Range("A" & Rows.Count).End(xlUp).Offset(-1)).Select

 

[Bryan123]

Thank you guys.. it works fine now..

 

[Fluff]

Glad we could help & thanks for the feedback