我来帮你搞定这个VBA宏的问题！先看修正后的代码，再给你拆解哪里出了问题：

Sub DeleteVisibleRowsExceptHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 建议替换成具体工作表，比如Set ws = ThisWorkbook.Worksheets("你的工作表名")
    
    ' 1. 删除筛选后的可见行（保留表头）
    On Error Resume Next ' 防止没有可见数据行时宏崩溃
    With ws.UsedRange
        ' 跳过表头行，选中剩余的所有可见数据行
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
    End With
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 2. 移除所有筛选
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
End Sub

• 为什么原来的Offset会删掉表头？
  大概率是你之前的代码没有正确限定操作范围——比如直接对整个筛选区域用Offset，却没先把表头排除在删除范围外。上面的代码先用UsedRange定位所有有数据的区域，再通过Offset(1)跳过第一行表头，接着用Resize(.Rows.Count -1)把范围缩小到表头以下的部分，最后再取可见行删除，就绝对不会碰表头了。

• 加错误处理的原因
  如果筛选后只剩表头（没有可见数据行），SpecialCells会抛出错误，加On Error Resume Next可以跳过这个错误，避免宏直接崩溃。

• 优化移除筛选的逻辑
  原来的功能虽然正常，但加个If ws.AutoFilterMode Then的判断，可以避免在没有筛选状态时执行关闭操作导致的警告，让宏更稳健。

另外建议你把ActiveSheet替换成具体的工作表名称（比如ThisWorkbook.Worksheets("销售数据")），这样宏不会因为当前激活的工作表不对而出错，可靠性更高。

内容的提问来源于stack exchange，提问作者TurboCoder