Небольшая база данных (error 424)

[romka_f]

В общем, на одном листе (ZTI_DB) у меня базза данных(имена, фамилии, номера и т.д.)
На другом, ввожу номер, и по нажатию кнопки должны вводиться имена, фамилии и т.д. с базы данных.
Реализовывал с помощью ActiveCell. Но увы рантайм 424. С макросами работаю первый раз.
Вот кусок кода VBA. Помогите, пожалуйста.

Sub Button_Click()
    
    If ActiveCell.Value = 1 Then
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1) = ZTI_DB.Cells(2, 1)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1) = ZTI_DB.Cells(2, 3)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 2) = ZTI_DB.Cells(2, 4)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 3) = ZTI_DB.Cells(2, 5)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 4) = ZTI_DB.Cells(2, 6)
    ElseIf ActiveCell.Value = 2 Then
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1) = ZTI_DB.Cells(3, 1)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1) = ZTI_DB.Cells(3, 3)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 2) = ZTI_DB.Cells(3, 4)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 3) = ZTI_DB.Cells(3, 5)
        ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 4) = ZTI_DB.Cells(3, 6)
    
    End If
     
End Sub

[DiemonStar]

Лучше бы приложили пример файла.
Если честно, навскидку вижу пару ошибок:
1.

ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1)

если активна ячейка в первой колонке, то ошибка закономерна (нет столбца с нулевым индексом). А создание такой ситуации очень даже возможно.
2.

ZTI_DB.Cells(2, 1)

- сомневаюсь, что в таком виде вы получите доступ к странице. Сделайте лучше так:

Sheets("ZTI_DB").Cells(2, 1)

[romka_f]

Спасибо, проблема была в названии станицы

Sheets("ZTI_DB").Cells(2, 1)

[slan]

сомнения вполне понятны, но в принципе это может работать - надо только изменить кодовое имя листа на ZTI_DB:

Sheets("ZTI_DB").codename="ZTI_DB" или в окне свойств листа..