Sub FilterColumnA()
    Dim ws As Worksheet
    Dim rng As Range

    ' Define the worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your actual sheet name

    ' Define the range to apply the filter (assuming data starts from A2)
    Set rng = ws.Range("A2", ws.Cells(ws.Rows.Count, "A").End(xlUp))

    ' Apply the filter
    rng.AutoFilter Field:=1, Criteria1:="<>#N/A", Operator:=xlAnd, Criteria2:="<>"

End Sub