Multiple actions

[agc3278]

Good Evening all,

I have this code that a wonderful user gave me some time ago below. The code below allows me to enter a number in A1 and it will show a that number of rows between the first visible row (6) and the last (43). I am hoping there is a way to add multiple actions in this code. For example, if I entered a number in B1, it will show that number between rows 44 and 54.

Any help would be greatly appreciated! Thank you.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim aNames, Val
  Dim i As Long, ShowHideRows As Long, ShowRows As Long
  
  Const sNames As String = "Sheet1, Sheet2"
  Const RowCell As String = "A1"
  Const FirstVisRow As Long = 6
  Const MaxHideRow As Long = 43
  
  If Target.Address(0, 0) = RowCell Then
    aNames = Split(sNames, ", ")
    ShowHideRows = MaxHideRow - FirstVisRow + 1
    Val = Target.Value
    ShowRows = IIf(IsEmpty(Val), ShowHideRows, Val)
    Application.ScreenUpdating = False
    For i = 0 To UBound(aNames)
      With Sheets(aNames(i)).Rows(FirstVisRow)
        .Resize(ShowHideRows).Hidden = True
        If ShowRows > 0 Then .Resize(ShowRows).Hidden = False
      End With
    Next i
    Application.ScreenUpdating = True
  End If
End Sub