Marker vilkårlig kolonne

Selection.End(xlToRight).Select

prøv at ændre til

Selection.End(xlToDown).Select

Nedenstående linie skal evt. slettes.
ActiveCell.Offset(-1, 0).Select

eller rettes til
ActiveCell.Offset(0, -1).Select

Range("A2").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(-1, 0).Select

selection.entireColumn.select

Hej thomas_bk
Jeg skal først til sidste celle til højre derefter skal jeg markere den kolonne jeg kommer til.
Den skal evt. markeres ned så længe der er data i kolonne A, eller 100 rækker ned, eller bare hele kolonnnen.
Jeg kan ikke få Selection.End(xlToDown).Select til at virke.

Mange tak finb, det var præcist hvad jeg ønskede mig.

Selv tak :)