Boa tarde!!

Use o GM (Gravador de Macros), ou poste seu arquivo modelo compactado, contendo o antes e o depois!!!!!

Att

Oi Amigo, veja o código:
Repare que ao selecionar a criterio para encontrar a celula vazia ele manda para Range F17063 mas este numero muda a cada dia, por isso a macro deveria encontrar dentro da coluna a primeira célula vazia .

Se não der para fazer nada com a informação, vou gerar os relatórios amanha e envio a planilha.

Sub Macro3()
'
' Macro3 Macro
'

'
ActiveSheet.Range("$A$6:$T$23006").AutoFilter Field:=6, Criteria1:="="
ActiveWindow.SmallScroll Down:=-9
Range("F17063").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[7],Ontem!C[5]:C[13],9,0)),"""",(VLOOKUP(RC[7],Ontem!C[5]:C[13],9,0)))"
Range("D17063").Select
Selection.End(xlDown).Select
Range("F23006").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Range("F23006").Select
Selection.End(xlUp).Select
Range("F6").Select
ActiveSheet.Range("$A$6:$T$23006").AutoFilter Field:=6
Range("A1").Select
ActiveSheet.Previous.Select
End Sub

Você deve criar uma variável para armazenar o número da última linha desejada e utilizá-la no código para evitar este problema. Veja um modelo de como fazer a adapte ao seu código completo:

Dim rlast As Long

rlast = Cells(rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("$A$6:$T$" & rlast).AutoFilter Field:=6, Criteria1:="="

Boa tarde!!

Se for só isso..

Dim lr As Integer
    lr = Plan1.Range("F" & Rows.Count).End(xlUp).Row + 1
    'ou........................
    lr = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1

Se não conseguir adaptar, por favor postar seu arquivo modelo.

Att

Você deve criar uma variável para armazenar o número da última linha desejada e utilizá-la no código para evitar este problema. Veja um modelo de como fazer a adapte ao seu código completo:

Dim rlast As Long

rlast = Cells(rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("$A$6:$T$" & rlast).AutoFilter Field:=6, Criteria1:="="

Funcionou perfeitamente, obrigado!

Boa tarde!!

Se for só isso..

Dim lr As Integer
    lr = Plan1.Range("F" & Rows.Count).End(xlUp).Row + 1
    'ou........................
    lr = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1

Se não conseguir adaptar, por favor postar seu arquivo modelo.

Att

Utilizei a do nosso amigo acima, muito obrigado mesmo assim!