Найти последнюю строку, содержащую данные

Question

Я импортирую данные RAW в Excel. Я хочу создать макрос для фильтрации данных и удаления данных, которые были отфильтрованы. Длина отчета данных RAW изменяется так, что число строк, содержащих данные, изменяется. Как я могу отфильтровать все данные?

Sub SF_FirstFilter() 
' 
' SF_FirstFilter Macro 
' Step 6 (Step 41) - First Filter of RAW Data 
' 
    Cells.Select 
    Selection.AutoFilter 
     ActiveSheet.Range("$A$1:$G$65000" & LastRow).AutoFilter Field:=7, Criteria1:=Array(_ 
     "@E100A", "@T641A,@T766A", "@T766A"), Operator:=xlFilterValues 
    Rows("84:65000").Select 
    Selection.Delete Shift:=xlUp 
    Selection.AutoFilter 
End Sub 

Answer 1

для удаления rows(84:65000).select вы можете попробовать

Range("A84:A65000").SpecialCells(xlCellTypeVisible).EntireRow.Delete

Sub SF_FirstFilter() 
' 
' SF_FirstFilter Macro 
' Step 6 (Step 41) - First Filter of RAW Data 
' 
    Cells.Select 
    Selection.AutoFilter 
     ActiveSheet.Range("$A$1:$G$65000" & LastRow).AutoFilter Field:=7, Criteria1:=Array(_ 
     "@E100A", "@T641A,@T766A", "@T766A"), Operator:=xlFilterValues 
    Range("A84:A65000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 
    Selection.AutoFilter 
End Sub