Нужен модуль vba, чтобы применить проверку выпадающего списка для двух столбцов в наборе электронных таблиц Excel

Question

Я написал что-то, но это работает (вроде) только на одной электронной таблице, но у меня есть 18 каждый месяц, и моя цель - написать один модуль и импортировать его во все из них каждый месяц. Тот, который работает, по какой-то причине начинается со строки 4 вместо строки 2.

Что я делаю не так?

Option Explicit

Private Sub Workbook_Open()


With dataValKeep()

    Dim lrow As Long
    Dim i As Long

    Set sht = Sheets("Inventory_Risk_beta1")
    lrow = Sheets("Inventory_Risk_beta1").Cells(Sheets("Inventory_Risk_beta1").Rows.Count, "A").End(xlUp).Row

      With sht.Range("AN2:AN" & lrow).Validation
           .Delete
           .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="Rework,Shelf Life Extension,Change in Demand,Quality Issue,End of Life,NPI,Transfer and Charge,Older Lot / Batch,Other"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
        End With

End With

With dataValScrap()

    Dim lrow As Long
    Dim i As Long

    Set sht = Sheets("Inventory_Risk_beta1")
    lrow = Sheets("Inventory_Risk_beta1").Cells(Sheets("Inventory_Risk_beta1").Rows.Count, "A").End(xlUp).Row

      With sht.Range("AO2:AO" & lrow).Validation
           .Delete
           .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="Rework,Shelf Life Extension,Change in Demand,Quality Issue,End of Life,NPI,Transfer and Charge,Older Lot / Batch,Other"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
        End With

End With

End Sub