VBA code for Pivot Table

[Rowanhf12]

I have the below VBA code for a pivot table

'RowLabels
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("ProductNo")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("ProductText")
        .Orientation = xlRowField
        .Position = 2
    End With

This section of the code if for the rows of the Pivot Table.
What if The User had a dropdown menu and chose position 2 to be nothing(blank). As in they only wanted 1 field for the rows.
I know how to use the dim function so each of the ranges can change based on what's selected, but what if 'nothing/blank' is selected??

Any help?

 

[Rowanhf12]

I was thinking about using some If statements

Code:

Sub Rowan()


    Sheets("Pivot").Select
    
    Dim p1 As Excel.Range
    Set p1 = Range("H1")
    
    If p1 = 0 Then
    End If
    If p1 = 1 Then
        Sheets("Pivot").Select
        ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
        ActiveSheet.PivotTables("PivotTable1").ClearTable
        Range("A1").Select
        ActiveSheet.PivotTables("PivotTable1").Location = "Pivot!A1"
        Range("A1").Select
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("ProductNo")
            .Orientation = xlRowField
            .Position = 1
    End If
    If p1 = 2 Then
        Sheets("Pivot").Select
        ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
        ActiveSheet.PivotTables("PivotTable1").ClearTable
        Range("A1").Select
        ActiveSheet.PivotTables("PivotTable1").Location = "Pivot!A1"
        Range("A1").Select
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("ProductNo")
            .Orientation = xlRowField
            .Position = 1
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("ProductText")
            .Orientation = xlRowField
            .Position = 2
    End If
End With
End Sub

So if the user only selected one output for the rows it would run the p1=1 section. if they choose 2 it runs the p1=2 section etc.
I'm getting a lot of 'End if without Block If' and 'Else without If' errors, depending on how I'm wording the code.
What Am I missing/ leaving out/ needing to delete??

Any help????