Partindo do princípio que vc sabe definir a última linha isso resolve.

Range ("A1:A & ultimalinha)

Sub teste()
     Dim linha As Long
     Dim intervalo As String
     Nome_Aba = "Plan1"

       linha = Sheets(Nome_Aba).Cells(Rows.Count, "A").End(xlUp).Row

     intervalo = "A1:A" & linha

     Set inter = Sheets(Nome_Aba).Range(intervalo)
    inter.Select

'''ou
  Sheets(Nome_Aba).Range(intervalo).Select     

    
End Sub

Se vc disponibilizar seu arquivo com zip (nativo no Windows) vc amplia o número de pessoas q podem te ajudar.

A melhor forma de fazer referência a uma coluna é criar uma tabela nomeada como no exemplo da planilha anexa.

Ou usar uma das fórmulas:

INDIRETO("A1:A"&CONT.VALORES(A:A))
DESLOC($A$1;0;;CONT.VALORES(A:A))

Segue em Zip

Veja como seu código pode ficar sucinto (1 linha).

Partindo do princípio que vc sabe definir a última linha isso resolve.

Range ("A1:A & ultimalinha)

Infelizmente, continua dando o mesmo erro.
Segue meu código:

Sub teste()
Dim w As Worksheet
Set w = Sheets("Plan1")
Dim linha As Range
Dim intervalo As Range
w.Select
w.Range("A1").Select
Set linha = Sheets("Plan1").Range("A1048576").End(xlUp).Offset(1, 0)
linha.Select
Set intervalo = w.Range("A1:A&linha")
intervalo.Select
End Sub

Depois de muito teste, eu consegui com o código abaixo:

Public W As Worksheet
Sub teste()

Set W = Sheets("Plan1")
W.Range("A1").Select
Dim intervalo As Range
Dim linha As Range

Set linha = W.Range("I1048576").End(xlUp)

Set intervalo = W.Range("A1", linha)
intervalo.Select

End Sub