bunun ile de userform yeni kayıt butonundan auto increment number değiştirip kaydederiz

lastId = findLastCount("MuayeneID", "_")
Dim Ws As Worksheet
Set Ws = Worksheets("MuayeneID" & "_" & lastId)
Ws.Name = renameSheet("MuayeneID", lastId + 1, "_")