Select entire column to the end that has blank cells

[craigwojo]

Is there a shortcut to select a column that contains data, but has blank cells in between? I need the selection to end where the last cell with data is. I know of ctrl+shift+arrow down, but that stops where a blank cell is. I've seen others use shortcuts to contain many columns and then use the ctrl+arrow left (or right) to select only the column.
Is there just one shortcut to select the column containing blank and data cells to the end of the last cell that has data in it?

Thank you and God bless,
Craig

 

[Scott Huish]

I don't think there's anything built in, but you can use this macro and assign a shortcut key to it

Sub SelectColumnData()
Dim sc As Long
sc = Selection.Column
Range(Cells(1, sc), Cells(Rows.Count, sc).End(xlUp)).Select
End Sub

 

[craigwojo]

I don't think there's anything built in, but you can use this macro and assign a shortcut key to it

Sub SelectColumnData()
Dim sc As Long
sc = Selection.Column
Range(Cells(1, sc), Cells(Rows.Count, sc).End(xlUp)).Select
End Sub

Thank you Scott.

 

[Peter_SSs]

Thank you Scott.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.