VBA Current region minus header and last column

[seattlerose]

I have code to minus header row but I also need to select current region minus header row and last column. Can anyone help.

Here is my current code

Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Thanks!!

 

[Rick Rothstein]

Try it like this...

[table="width: 500"]
[tr]
	[td]Selection.CurrentRegion.Offset(1).Resize(Selection.CurrentRegion.Rows.Count - 2).Select[/td]
[/tr]
[/table]

 

[seattlerose]

Thanks but that's not quite what I was going for. I need the Header Row unselected and the last Column​ unselected . The code you provided unselects the header row and the last row.

 

[Rick Rothstein]

Thanks but that's not quite what I was going for. I need the Header Row unselected and the last Column​ unselected . The code you provided unselects the header row and the last row.

Sorry, I misread your original question. Try either of these (they are both the same except for how they are presented)...

[table="width: 500"]
[tr]
	[td][COLOR="#008000"][B]'As a one-liner
'----------------------------------[/B][/COLOR]
Selection.CurrentRegion.Offset(1).Resize(Selection.CurrentRegion.Rows.count - 1, Selection.CurrentRegion.Columns.count - 1).Select


[COLOR="#008000"][B]'Maybe easier to read
'----------------------------------[/B][/COLOR]
With Selection.CurrentRegion
  .Offset(1).Resize(.Rows.count - 1, .Columns.count - 1).Select
End With[/td]
[/tr]
[/table]

 

[seattlerose]

Sorry, I misread your original question. Try either of these (they are both the same except for how they are presented)...

[TABLE="width: 500"]
<tbody>[TR]
[TD][COLOR=#008000][B]'As a one-liner
'----------------------------------[/B][/COLOR]
Selection.CurrentRegion.Offset(1).Resize(Selection.CurrentRegion.Rows.count - 1, Selection.CurrentRegion.Columns.count - 1).Select


[COLOR=#008000][B]'Maybe easier to read
'----------------------------------[/B][/COLOR]
With Selection.CurrentRegion
  .Offset(1).Resize(.Rows.count - 1, .Columns.count - 1).Select
End With[/TD]
[/TR]
</tbody>[/TABLE]

AWESOME!!! works great thanks