Meltad, if you want to select column "A" except for header then:

Sub GetRng()
Dim myRange As Variant
lastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Gives row number for last cell
in "A"
Set myRange = Range("A2:A" & lastRow)
myRange.Select
End Sub

"Lori" wrote:

In practice you can usually just select the columns and press ctrl
+shift+\.

But if you want code try:

Application.Goto Reference:="R2C:R65536C"
Range(Selection, Selection.End(xlUp)).Select


On 23 Mar, 09:49, Meltad wrote:
Hi,

I've got the following code to select all data apart from the header row...

with activesheet
.rows("2:" & .rows.count).select
end with

How do I select all data in a certain column apart from the header row
without selecting right doen to the bottom of the sheet?

Thanks, Mel