Sub addOne() lr = Range("A" & Rows.Count).End(xlUp).Row Set quelle = Range("A" & lr) Range(quelle.Address).Offset(1, 0).Value = IIf(IsNumeric(quelle).Value, Range(quelle.Address).Value + 1, 1) End Sub