Change listbox value

Hi Stignone

I've added some Public Variables (see Module1) and I've changed the Initialize Event Code to capture the Range Start Row for each of your Page Ranges.
I've modified the UpDate Button Code for Page 1 and Page 5 (CommandButton12 and CommandButton10); please make the same appropriate modifications on Page 2, 3 and 4 Update Buttons (CommandButton4, CommandButton6 and CommandButton8)

Let me know of issues.

Hi Stignone

In the UserForm Initialize Event, for each ListBox, change this line of code

Private Sub UserForm_Initialize()
    Dim x As Long
    Dim k As Long
    Dim j As Long
    If MultiPage1.Value = 0 Then x = Sheets("INPUT BS").Range("D10:M50").Rows.Count '<--If you change the Range
    Rx1 = 10 '<----------------------------------------------------------------------You Must Change this
    ListBox1.List = Sheets("INPUT BS").Range("D10:M50").SpecialCells(xlCellTypeVisible).Value '<----Change this line
    For k = 1 To x    'rows
        For j = 1 To 10    'columns
            ListBox1.List(k - 1, j - 1) = VBA.Format(ListBox1.List(k - 1, j - 1), "0")
        Next
    Next

Hi Stignone

You're using Rows 10 to 50 for ListBox1...why are they hidden?

Hi Stignone

I don't understand.

The Code says this

x = Sheets("INPUT BS").Range("D10:M50").Rows.Count

But you indicated rows 10 till 50 are hidden

10 till 50 hidden