Macros en Excel para imprimir determinadas páginas

Estoy trabajando con la siguiente Macros

Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Range("G" & 40).End(1).Row
Hoja1.[C23] = Range("G" & i).Value
Hoja1.Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\XXX\" & Range("G" & i).Value & ".pdf"
Next i
End Sub

Esta Macros me permite replicar un informe modificando una Celda (la C23) de acuerdo a los valores de la Columna G (de 1 a 40). El único inconveniente que tengo, es que el informe consta de 15 páginas y para cada valor de G hay páginas que se usan y páginas que quedan en blanco.

Por ejemplo:

Los datos de G1 despliegan información para las páginas 1,2,3,7,9 y el resto queda en blanco
Los datos de G2 despliegan información para 1,2,10,15 y el resto queda en blanco
Los datos de G3 despliegan información para todas las páginas.

¿Existe alguna función donde pueda especificar qué páginas exportar a PDF y qué páginas no?