VBA error when trying to delete visible rows

[KDavidP1987]

Greetings all,

I am trying to run a script which is supposed to delete the visible rows from a table I've filtered. However, when the script is ran it comes up with error msg: "Runtime error '1004': Delete method of range class failed.

I have tried it two different ways, based on solutions I've found through MrExcel, StackOverflow, and Ozgrid.

Sub RemoveVisibleRows()
'Removes Visible rows, discluding the header

'Method 1
    Worksheets("IncidentData").Range("A1:A100000").Offset(1,0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

'Method 2: (currently ' out)
    'Range("A2:A100000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
    
End Sub

I've tried some other, lengthier, solutions as well to no avail. If you have any ideas I'm all ears, because I cannot figure it out.

If needed, here are some of the solution pages I had used:
https://www.mrexcel.com/forum/excel...w-delete-autofiltered-rows-except-header.html

https://www.ozgrid.com/forum/forum/...sible-rows-after-auto-filter-exclude-headings

Sincerely,
Kristopher

 

[Fluff]

Is the sheet protected?

 

[KDavidP1987]

Is the sheet protected?

No sir (or ma'am), it is not a protected sheet. Good question!

 

[Fluff]

Missed this

supposed to delete the visible rows from a table

Try

Application.DisplayAlerts = False
ActiveSheet.ListObjects("Table1").DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

 

[Peter_SSs]

Is it important/desirable to delete the entire worksheet row rather than just the rows from the table?
This should just delete rows from the table area, not the whole sheet.
I have also made the assumption that after deletion you would want to remove any filters from the table to show any remaining data.

Sub DelTblRows()
  Dim rng As Range
  
  With ActiveSheet.ListObjects("Table1")
    Set rng = .DataBodyRange.SpecialCells(xlVisible)
    If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData
    rng.Delete
  End With
End Sub