Olá, preciso fazer para o trabalho uma macro que, a partir de uma planilha padronizada, vai utilizando o filtro na célula A3, e vai imprimindo item por item. A coluna A possui o nome de diversas empresas, e a macro deve percorrer empresa por empresa. Espero que tenha dado para entender. Até agora desenvolvi este código, e coloquei o item "SPEFIM" como o último da lista:

Sub Imprime()
'
' Imprime Macro

Dim palavra As String
Dim i As Integer
i = 1

    ActiveSheet.Range("$A$3:$L$117").AutoFilter Field:=1, Criteria1:=i
    
    palavra = Criteria1
    
    Do Until palavra = "SPEFIM"
    
    
    Range("A1:L2").Select
    ActiveCell.FormulaR1C1 = "palavra& ""- Período de 14 a 18 de agosto de 2017"""
    Range("A3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
        
        i = i + 1
        
         ActiveSheet.Range("$A$3:$L$117").AutoFilter Field:=1, Criteria1:=1
    palavra = Criteria1
        loop
               
End Sub

Obrigado desde já,

Barbosa