Sub SelectFirstCellOfLastColumn() :D
 
    Dim i As Integer
    Dim sContent As String
 
    i = 1
 
    With Worksheets(1)
 
        Do While Not IsEmpty(.Cells(1, i))   'Spalten durchlaufen solange keine 
        ' leere dabei ist (Achtung: die Schleife endet bei der ersten 
        ' Unterbrechung!)
            i = i + 1
            DoEvents
        Loop
 
        sContent = .Cells(1, i - 1)
 
    End With
 
    Worksheets(2).Range("A1") = sContent    'Alternativ mal Range statt Cells 
    ' genommen ;-)
 
End Sub