Macro to delete row in filter range works in one workbook, not the other

[ret44]

This was a weird one to me, hopefully there's an easy explanation...

I have a macro to delete a row - typically in a filtered range.

If ActiveCell.Column = 14 Then

ActiveCell.EntireRow.Delete

Else

    Exit Sub

End If

If Rows(ActiveCell.Row).Hidden = False Then Exit Sub

Do
   ActiveCell.Offset(1, 0).Select
Loop Until Rows(ActiveCell.Row).Hidden = False

I run this exact code (tested code from another workbook to confirm) in other workbooks to delete rows in filtered ranges, but in this one workbook, it will not work.

Edit: I get a "Cannot shift cells in a filtered range or table" error