Also, Werten sind in den Zellen A1-A200 dann soll in A201 stehen "199 Fälle". Bei A1-A35 soll in A36 stehen "34 fälle" usw. Im Übrigen steht in der Spalte A keine Zahlen sondern Buchstaben z.B. "KGB"
Sub Oli()
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & laR + 1).Value = laR - 1 & " Fälle"
End Sub