недочёты

[Kek]

1) написанный мною макрос pereb_2 в Список_перебоев_физического_запаса_ OST original.xls, чтобы распечатать все отделы (r01...r15) необходимо вручную исправлять 2 строчки в которых прописан отдел.
как избежать ручного ввода. при том что это выполняется один раз, но каждый день и !!! не всегда все отделы есть, то есть распечатывал те отделы, которые есть. отделы скаченные файлом OST-Downloader_test.xls помещены в корне папки.
2) файлом OST-Downloader_test.xls скачиваются отделы, но никак не могу разобраться, как изменить чтобы сохранял как номер отдела, а не по дате. (130709073307->6)

[Kek]

Sub pereb_2()

Dim i&, s$
On Error Resume Next ' åñëè ôàéëà èëè ëèñòà íå íàéä¸ò
For i = 1 To 15
If i < 10 Then
s = " r0 " & i
Else
s = " r " & i
End If

Workbooks.OpenText (ActiveWorkbook.Path & "\" & s & ".xls")
Windows("Ñïèñîê_ïåðåáîåâ_ôèçè÷åñêîã î_çàïàñà_OST original.xls").Activate
Range("AB1:AB8").Select
Selection.Copy
Windows("\" & s & ".xls").Activate
Range("AB1").Select
ActiveSheet.Paste

Dim Endrow As Long

Const StartRow = 8
Const StartCol = 28
Const EndCol = 28

Endrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillDown

Cells.Select
Cells.EntireRow.AutoFit
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SmallScroll Down:=-3
Application.CutCopyMode = False
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.SelectedSheets.PrintOu t Copies:=1, Collate:=True

Next

End Sub

вот что получилось. я открываю 20-80 и Список_перебоев_физического_запаса_ OST original.xls. при запуске pereb_2 постоянно активно Список_перебоев_физического_запаса_ OST original.xls и его же печатает
что не так?