1)Удалить строку без даты

2)Принимать в таблицу номер карты с учетом текущего числа

Выложите таблицу..

ctrl+A+A ,Alt+F6

Похоже что в функцию приема не влез весь текст - нужно увеличить размерность до 255

Пример таблицы

Tabl1.Sum

Поделитесь табличкой..