How to deselect the first cell out of column range selection?

[Klash Ville]

Let's imagine that after filtering, I have the visible cells of L104 to L110.

I select that range by selecting the respective Table Header name.

Within that range, how to dynamically, deselect the very first cell (L104) while keeping the other (L105 to L110) selected?

 

[lrobbo314]

This seems to work.

Sub test2()
Dim r As Range
Set r = Selection
Set r = r.SpecialCells(xlCellTypeVisible)
Set r = r.Areas(r.Areas.Count)
Set r = r.Offset(1).Resize(r.Cells.Count - 1, 1)
r.Select
End Sub

 

[Klash Ville]

This seems to work.

Sub test2()
Dim r As Range
Set r = Selection
Set r = r.SpecialCells(xlCellTypeVisible)
Set r = r.Areas(r.Areas.Count)
Set r = r.Offset(1).Resize(r.Cells.Count - 1, 1)
r.Select
End Sub

Worked flawlessly, thank you so much!!!! Perfect!