Probably you need something like this:
Dim ws As Worksheet
Set ws = ActiveSheet
Dim used_range As Range
Set used_range = ws.UsedRange
Dim last_column As Range
Set last_column = used_range.Columns(used_range.Columns.Count)
Dim result As Range
Set result = ws.Range(ws.Cells(last_column.Row + 1, last_column.Column), _
ws.Cells(last_column.Row + last_column.Rows.Count - 1, last_column.Column))
result.Select
You can use a specific sheet instead of ActiveSheet.
Maybe it can be simplified.