Marker første til og med sidste ikke tomme celler i kolonne A

Jeg har tekst i celle A4,A5,A6,A8
og vil så have selekteret/markeret område A4:A8
Følgende linie virker kun delvis ok idet den markerer fra A4 til A12
Cellerne A9 til A12 er godt nok tomme men har tidligere været anvendt (derfor de selekteres)

Range("a1").End(xlDown).Offset(1, 0).Resize(Cells.SpecialCells(xlCellTypeLastCell).Row, 1).Offset(-1, 0).Select

Følgende sub skulle nulstille usedrange men virker vist ikke helt efter hensigten
Sub ResetArk()
  Dim X As Long
  X = ActiveSheet.UsedRange.Rows.Count
End Sub


Følgende 2 linier selekterer som de skal området A4:A8
men jeg vil godt have de 2 reduceret til en linie

r = Range("a1").End(xlDown).Address
Range(r, Range("a65536").End(xlUp)).Select

Har forsøgt med følgende linie uden held
Range("a1").End (xlDown), Range("a65536").End(xlUp).Select

-------------- Hvem har en løsning på det ------------------