Excel Macro para Filtrar e Deletar

[crownics]

Pessoal, bom dia!

 

Sou bem iniciante com macro ainda, e estou desenvolvendo um para agilizar um relatório que tenho que gerar 3x na semana, porém em uma parte dele, onde seria para a macro filtrar determinado valores e deletar estes filtrados, ele esta dando erro. Poderiam me ajudar? 

 

Obs: Se souberem como "Compilar" o que tem ai até o momento, e puderem me ensinar, eu agradeço. 

Citação

Sub Macro4()

    Sheets("HODIE").Select
    Range("B2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("A2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("U2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("D2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("W2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("E2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("Y2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("F2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("AD2:AG2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("G2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("AJ2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("K2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("AP2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("L2").Select
    ActiveSheet.Paste
    
    Sheets("HODIE").Select
    Range("AS2:AT2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Validação").Select
    Range("M2").Select
    ActiveSheet.Paste
    
Dim LR As Long
    With ActiveSheet
        .UsedRange.AutoFilter Field:=3, Criteria1:=Array( _
        "EM TRÂNSITO", "Programado", "Retorno total", "Ag. Expedição"), Operator:=xlFilterValues
            LR = .Cells(.Rows.Count, 2).End(xlUp).Row
                If LR = 1 Then GoTo vazaí
           Range("A2:A" & LR).SpecialCells(xlCellTypeVisible). _
            EntireRow.Delete
vazaí:
        .AutoFilterMode = False
    End With

End Sub