[Resolvido]Exportar para excel em varias abas

Buenas!

Preciso exportar uma tabela para uma planilha excel e lá separar em abas.

1) uso o código do JPaulo para exportar a tabela para uma planilha com cabeçalho e logo, na aba "Todas", ordenada pela coluna UF.

2) preciso, então, já na planilha, de um código para criar, a partir da aba "Todas", uma aba para cada UF que aparece em "Todas" e colar nelas as linhas correspondentes à UF.

3) cada UF pode ter várias linhas.

Imagino um Loop que compara a celula atual da UF com a da linha anterior. Sendo diferente, cria a aba como o nome da UF e copia a linha para linha 4 dessa aba. Senão, copia a linha para a linha seguinte (5, 6, 7 ...) dessa última aba criada.

O JP tem um exemplo "exportar para excel e criar uma folha por estado", mas não consegui baixar.

Poste o link do exemplo para vermos o que podemos fazer. A lógica deve ser a mesma.

Na página deste post é o item 5 da lista logo acima. O caminho é este:

http://maximoaccess.forumeiros.com/t1652-exporta-para-excel-e-cria-uma-folha-por-estado

Aqui o link de download está funcionando. Tente novamente. Talvez utilizando outro browser, se possível.

A empresa não permite acesso ao endereço.

Anexei o exemplo ↓aqui↓. Veja se consegue baixá-lo:

Buenas, Criquio!

Baixei o exemplo. Confesso que achei complexo prá mim. Então, prefiro usar o codigo para exportar a planilha "Todas" da forma usual (codigo do JPaulo).
Aí, com VBA, já no excel, separo "Todas" por um critério qualquer. Neste exemplo estou separando por data, aproveitando um código que peguei na internet.

Assim, já que se dispôs a me ajudar, e agradeço, estou com um problema:
o exemplo copia a linha do cabeçalho para todas as planilhas criadas. Mas a minha planilha "Todas" tem três linhas de cabeçalho a serem replicadas nas demais planilhas. Expondo minha ignorância, confesso que não detectei no código onde alterar para copiá-las.  

Eis o código:

'Divide a planilha em diversas a partir do critério do mês
Sub lsSeparaPlanilha()
'Definição das Variáveis
Dim iTotalLinhas As Integer
Dim rngAux As Range
Dim iAnoMes As String
Dim lRow As Long
Dim iTotalLinhasAux As Long
Dim lCel As Long
'Identifica a última linha da planilha
iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
'Seleciona os dados das colunas
'Columns("A:F").Select
'Realiza a ordenação dos dados pela data
'ActiveWorkbook.Worksheets("Plan1?).Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("Plan1?).Sort.SortFields.Add Key:=Range("F2:F" & iTotalLinhas) _
', SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'With ActiveWorkbook.Worksheets("Plan1?).Sort
'.SetRange Range("A1:F" & iTotalLinhas)
'.Header = xlYes
'.MatchCase = False
'.Orientation = xlTopToBottom
'.SortMethod = xlPinYin
'.Apply
'End With

'Analisa as linhas e as separa criando para isso novas planilhas
For lCel = 2 To iTotalLinhas
'Ativa a planilha da base de dados
ActiveWorkbook.Worksheets("Todas").Activate

Set rngAux = Range("F" & lCel)

'Cria uma nova planilha

If "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value) <> iAnoMes Then

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value)

iAnoMes = "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value)

ActiveWorkbook.Worksheets("Todas").Activate
Range("A1").EntireRow.Select
Application.CutCopyMode = False
Selection.Copy

Sheets(iAnoMes).Select

Range("A1").Select
ActiveSheet.Paste
End If

'Realiza a cópia dos dados

ActiveWorkbook.Worksheets("Todas").Activate
rngAux.EntireRow.Select
Application.CutCopyMode = False
Selection.Copy

Sheets(iAnoMes).Select
iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Range("A" & iTotalLinhas).Select

ActiveSheet.Paste
Next lCel

'Avisa o usuário o término do processo
MsgBox "Planilha Separada", vbInformation
End Sub

Resolvido, vejam a linha destacada:

'Realiza a cópia dos dados

ActiveWorkbook.Worksheets("Todas").Activate
rngAux.EntireRow.Select
Application.CutCopyMode = False
Selection.Copy

Sheets(iAnoMes).Select
[A3].select
iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Range("A" & iTotalLinhas).Select

ActiveSheet.Paste
Next lCel

'Avisa o usuário o término do processo
MsgBox "Planilha Separada", vbInformation
End Sub

Grato pelo retorno. O fórum agradece.