Bom dia galera do forum!

Bom, estou eu a tentar trabalhar com macros, ainda sou muito novato nessa parte, o que não me impede de tentar.

Estou tentando criar uma macro onde eu altero as informações de uma tabela dinâmica e depois imprimo a página em pdf com um nome específico de uma célula, até ai foi relativamente fácil, o problema vem depois. Preciso que ela continue repetindo esse processo um determinado número de vezes. No caso eu altero o filtro da tabela dinâmica buscando os nomes em outra aba da planilha, e ao mesmo tempo o nome da impressão muda conforme mudam-se as informações da tabela.

Montei até agora algo mais ou menos assim:

Sub teste()
Dim myLocal As String
myLocal = "C:Documents and Settingsandre.nishidaDesktopDiarias"

Set prim = Worksheets("Plan3").Range("B2")
Set seg = Worksheets("Plan3").ActiveCell.Offset(1, 0)

Set nome = Worksheets("Plan3").Range("D2")
Set nome2 = Worksheets("Plan3").ActiveCell.Offset(1, 0)

Windows("Arquivo1.xlsx").Activate
Sheets("Distribuição").Activate
ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Data Emissão"). _
CurrentPage = prim

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myLocal & nome & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Do While Not IsEmpty(nome2)
Windows("Arquivo1.xlsx").Activate
Sheets("Distribuição").Activate
ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Data Emissão"). _
CurrentPage = seg

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myLocal & nome2 & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Loop

End Sub

Bom, não é preciso muito para ver que tem algumas, se não muitas coisas erradas, na parte do loop, ele não altera o filtro da tabela dinâmica com as informações da matriz b2:b20 está dando um erro, e gostaria que ele imprimisse em pdf com os nomes da matriz d2:d20 conforme mudasse as informações da tabela, mas ele apenas imprime com as infos da célula d2 e d3, ou seja o loop deu totalmente errado.

Se alguém puder me ajudar ficaria muito grato!
Abraços
Andre