В столбца "B" каждая тысяча строк нумеруется начиная с 1 до 47 - VBA

Формулировка задачи:

Добрый день! Имеется excel файл напечатанного ниже формата: Столбец "A" - путь к файлу; - каждая тысяча строк, это отдельная папка начиная с 1. То бишь: Первая тысяча строк должна иметь путь к папке 1, - в ячейках столбца "B" от 1-1000 цифра 1. Вторая тысяча строк должна иметь путь к папке 2, - в ячейках столбца "B" от 1001-2000 цифра 2. И т.д. Напишите пожалуйста макрос который в ячейках столбца "B" запишет номер папки. Во вложении прикрепляю файл исходник со страницами исходник и необходимый результат.

Решение задачи: «В столбца "B" каждая тысяча строк нумеруется начиная с 1 до 47»

textual
                            Листинг программы 
                        

                            Sub jhy()
  With ActiveSheet.UsedRange
    .Columns(1).Offset(, 1).Value = Evaluate("INDEX(INT((ROW(R1:R" & .Rows.Count & ")-1)/1000)+1,)")
  End With
End Sub
                        