Tabla dinamica con Datos de origen dinamicos

[brnab84]

Buenos dias A todos

Necesito me ayuden tango este codigo de una macro que arma una tabla dinamica de una hoja ya fija. la hoja y la columna de donde se toman los datos de origen para alimentar la tabla dinamica siempre seran fija no que no sera fijo sera la fila. necesito me ayuden como concateno el valor de la fila con una variable adjunto codigo

Sheets("TABLA DINAMICA_RECON").Select
Sheets("TABLA DINAMICA_RECON").Move After:=Sheets(2)
FilaCOL = 10

    'como idicar nombre de archivo

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"RECONSIDERACIONES!R[& FilaCOL & ]C2:R[FilaCOL]005C16").CreatePivotTable TableDestination:= _
"'[" & nomfic & "]TABLA DINAMICA_RECON'!R1C1", TableName:="Tabla dinámica5", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tabla dinámica5").AddFields RowFields:=Array( _
       "CAPITULOS")
    With ActiveSheet.PivotTables("Tabla dinámica5").PivotFields("TOTAL $")
        .Orientation = xlDataField
        .Caption = "Suma de SubTotal"
        .Function = xlSum
    End With
ActiveSheet.Range("A4").Select
    ActiveSheet.PivotTables("Tabla dinámica5").PivotFields("CAPITULOS").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)

    ActiveWorkbook.ShowPivotTableFieldList = False[/PHP]

[brnab84]

Gracias a todos por sus respuestas saludos