VBA to set up POV for multiple grids in Smartview

Hi everyone,

I'm fairly new (2days old) to the VBA coding and have this question related to Retrieving multiple grids in the same worksheet from the same cube. I have 5 dimension in my cube and I've two grids in my worksheet:
- First grid - 2 dimensions, 1 in rows and 1 in columns

- Second grid - 3 dimension, 2 in rows and 1 in columns

I'm using the below code for retrieving:

Sub Retrieve()
    Dim X, Y As Long
  
    X = HypRetrieveRange("BS", Range("B21:F27"), "")
    If X <> 0 Then
        Application.ScreenUpdating = True
        SVError = SmartViewEC(X)
        Exit Sub
    End If
  
    Y = HypRetrieveRange("BS", Range("I21:F27"), "")
    If Y <> 0 Then
        Application.ScreenUpdating = True
        SVError = SmartViewEC(Y)
        Exit Sub
    End If
  
End Sub