j = 1

For i = 5 To B.UsedRange.Columns.Count 'iterate through all the models'

    If B.Cells(2, i).Value <> 0 Then 'case where there are versions of that model in build'

        A.Cells(5, 2 * j).Value = B.Cells(1, i).Value 'print name of the model'

        k = B.Cells(2, i).Value - B.Cells(3, i).Value + 1 'set k = to the total number of that model ever to be in build - the number of that model completed before the start of this year'

        ReDim Ar1(k) As String 'set Ar1 to be a size such that it can contain all the models versions I wish to display'

        For l = 0 To k - 1 'iterate through all of the model versions and add them to an array'

            If B.Cells(3, i).Value + l < 10 Then 'version number is less than 10'

                Ar1(l) = ("00" & CStr(B.Cells(3, i).Value + l))

            ElseIf l > 9 And l < 100 Then 'version number is between 10 and 100

                Ar1(l) = ("0" & CStr(B.Cells(3, i).Value + l))

            Else 'version number is greater than 100'

                Ar1(l) = CStr(B.Cells(3, i).Value + l)

            End If

            m = m + 1

        Next l

        With A.Cells(7, 2 * j).Validation 'selecting the cell to place the listbox in and creating it'

            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Ar1, ",") 'adding the array containing the the version numbers'
            .InCellDropdown = True
            .InputTitle = A.Cells(7, 2 * j).Value

        End With

        Set Ran1 = A.Range(A.Cells(9, 2 * j), A.Cells(9, 2 * j)) 'picking the cell to create the button in'

        Set Btn = A.Buttons.Add(Ran1.Left, Ran1.Top, Ran1.Width, Ran1.Height) 'creating the button'

        With Btn

            .OnAction = "loadboat"
            .Caption = "Edit"
            .Name = "Btn" & j

        End With

        j = j + 1

    End If

Next i