Исправить макрос не хватает опыта.

[Steepka]

Ситуацию на мой взгляд тяжело передать( ну или писать придётся страницы две) но я попытаюсь всё вкратце изложить. Копируем таблицу вставляем. нумерация начинается с цифры 2. Сейчас начальство изменило свои таблицы и нумерация начинается по правилам с 1. Но макрос пишет "ошибка в N-ой строке" И у меня никак не хватает ума его исправить. Буду благодарен за помощь с пояснением.
Вот сама часть макроса
Sub 123
Dim a, logins, loginss, vse As Worksheet

Set a = ActiveSheet
Set logins = ThisWorkbook.Sheets("Ëîãèíû")
Set loginss = ThisWorkbook.Sheets("Ëîãèíû Ñarg")

Set vse = ActiveWorkbook.Sheets("Âñå ïîñòàâùèêè")

If Selection.Cells.Count = 1 Then
s = 2
e = a.Range("A1").CurrentRegion.Rows.Co unt
Else
s = Selection.Row
e = s + Selection.Rows.Count - 1
End If

l = logins.Range("A1").CurrentRegion.Ro ws.Count
m = loginss.Range("A1").CurrentRegion.R ows.Count
For i = s To e
If a.Cells(i, 1) <> i Then
If MsgBox("Îøèáêà â ñòðîêå: " & i & ". Ïðåðâàòü ðàáîòó?", vbYesNo) = vbYes Then End (вот на этом этапе мне выдаёт ошибку)
End If
И подскажите пожалуйста простым языком что значит "Count-Возвращает число объектов в наборе."
Сижу изучаю макросы буду также рад рекомендованной литературе.

[Steepka]

Пожалуйста подскажите еще зачем нужны эти строки
For i = s To e
If a.Cells(i, 1) <> i Then

[doober]

А можно одним глазом глянуть на этот чудесный файл?

[Steepka]

Могу всё продемонстрировать в скайпе lllawlietll

[kalbasiatka]

Сообщение от Steepka

Могу всё продемонстрировать в скайпе lllawlietll

Может не тот форум "всё демонстрировать"?
Достаточно выложить файл.