Relatório somando de forma agrupada

[Anacleto]

Bom dia,

Temo uma planilha onde realizo todos os lançamentos de horas extras dos funcionários exemplo:

ColunaA / ColunaB/ ColunaC/ ColunaD

Nome / Matricula/ Data / Horas

Fiz uma macro com o código abaixo: Mas preciso que apresente todas as informações agrupadas em ordem alfabética e um demontativo de cada colaborador com o total de horas extras para cada colaborador. Isso é possivel?

Private Sub btExecutar_Click()
Plan1.Range("j3:n100").ClearContents
lin = 2
linha = 2

If cdDataINI = "" Or cdDataFIM = "" Then Exit Sub

Do Until Plan1.Cells(lin, 1) = ""
If Plan1.Cells(lin, 3) >= CDate(cdDataINI) And _
Plan1.Cells(lin, 3) <= CDate(cdDataFIM) Then
Plan1.Cells(linha, 10) = Plan1.Cells(lin, 1)
Plan1.Cells(linha, 12) = CDate(Plan1.Cells(lin, 3))
Plan1.Cells(linha, 11) = Plan1.Cells(lin, 2)
Plan1.Cells(linha, 13) = Plan1.Cells(lin, 4)
linha = linha + 1
End If
lin = lin + 1
Loop
MsgBox "Processo concluído - " & cdDataINI & " à " & cdDataFIM
End Sub

[Benhur Palini]

Anacleto,

Este exemplo classifica em ordem crescente uma tabela com auto filtro que inicia na célula A1 da planilha Plan1:

Sub Macro1()

Set Tabela = ActiveWorkbook.Worksheets("Plan1").AutoFilter.Sort

Tabela.SortFields.Clear

Tabela.SortFields.Add Key:=Range("A1"), Order:=xlAscending

Tabela.Apply

End Sub