=SEERRO(SE(É.NÃO.DISP(CORRESP($B2;LCTO!$A$2:$A$20000;0));"";MAXIMO(SE((LCTO!$A$2:$A$20000=$B2);LCTO!$C$2:$C$20000)));" ")

Esta linha de comando acima como faço para adaptar para o código abaixo

Ela vai retornar em uma coluna a data do 1º lançamento de cada produto e  em outra coluna a ultima data de lançamento de cada produto

Sub AtualizaDatas()
'' Atualiza Guia Movimento
' Gravado por Denilson Roberto de Souza

Dim w As Worksheet
Dim senha As String
Dim ulinha As Long
Dim UltimaLin As Long
senha = "acerf15"
'Captura a Ultima Linha na Coluna c
UltimaLin = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
Application.ScreenUpdating = False
Set w = Planilha5
w.Activate
If w.ProtectContents = True Then
w.Unprotect senha
End If

Range("i2").Select
ActiveCell.Formula = "=iferror(if(isna(MATCH(B;LCTO!A:A;0));"";MIN(SE((LCTO!A:A=B);LCTO!C:C)));"")"
Range("f2").Select
Selection.End(xlDown).Select
lin = ActiveCell.Row
rg = "i2:i" & lin
ActiveCell.Value = ActiveCell.Value
Range("i2").Select
Selection.AutoFill Destination:=Range(rg), Type:=xlFillDefault
Range("i2:i" & lin).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

cont = 2

cont = cont + 1
'Loop

'Apaga todas as Linhas em branco a partir de A2

w.Protect senha

End Sub