Dim LetzteSpalte As Integer
LetzteSpalte = Cells.SpecialCells(xlCellTypeLastCell).Column

Dim LetzteSpalte As Integer
LetzteSpalte = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column

Xl.Range("A1:" & sLetzteSpalte).Select

Sub Beispiel()
Dim iRow As Integer
Dim iCol As Integer
iRow = Cells.SpecialCells(xlCellTypeLastCell).Row
iCol = Cells.SpecialCells(xlCellTypeLastCell).Column
Xl.Range(Cells(1, 1), Cells(iRow, iCol)).Select
End Sub