wie speichere ich eine selektiere range in variablen ab, so das ich das rangeende abfragen kann und eine neue zeile anfangen kann.
range($A1:$A16)
mit range(16+1).seletion kann ich dann den cursur eine zelle nach unten gehen lassen.
Sub Sven()
Dim zu As Long
zu = Selection.Rows.Count + Selection.Row - 1 'Zeile unten
Range("A" & zu + 1).Select
End Sub