* Я пытался написать этот код, но когда я запускаю код, в строке отображается ошибка приложения или объекта
ActiveSheet.Range(Rng).SpecialCells(xlCellTypeVisible).Select
Пожалуйста, помогите с ошибкой, которую я сделал
Dim xLastRow As Long
Dim xLstRw As Long
Dim Rng2 As Range, Rng As Range
Set xLstRw = Cells(Row.Count, "B").End(xlUp).Row
Set Rng2 = Range("J7")
Set Rng = Rng2.Offset(1, xLstRw)
Application.DisplayAlerts = False
Sheets(Worksheets("Home").Range("I10").Value).Activate
Range("A:A").EntireColumn.Insert
With Application.ActiveSheet
xLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Range("A7:A" & xLastRow).Value = Worksheets("Home").Range("I9").Value
Range("A7").EntireRow.Insert
ActiveSheet.Range("A7:T" & xLastRow).AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range(Rng).SpecialCells(xlCellTypeVisible).EntireRow.Delete