Dim LastCell As Range
Dim LastCellColRef As Long
LastCellColRef = 1 'kollonne som skal til rækker i 1 = A
Set LastCell = Sheets("Ark1").Cells(Rows.Count, LastCellColRef).End(xlUp).Offset(1, 0)
ThisWorkbook.Sheets("Ark1").Range(LastCell.Address).select