You could build an array that keeps track of columnwidths:

Option Explicit
Sub testme()
   Dim myColWidths() As Double
   Dim MaxCols As Long
   Dim iCol As Long
   
   With Worksheets("sheet1")
       MaxCols = .Columns.Count
       ReDim myColWidths(1 To MaxCols)
       For iCol = 1 To MaxCols
           myColWidths(iCol) = .Columns(iCol).ColumnWidth
       Next iCol
   
       .Columns.Hidden = False
       
       'do some stuff
       
       For iCol = 1 To MaxCols
           .Columns(iCol).ColumnWidth = myColWidths(iCol)
       Next iCol
   End With
End Sub

As for the autofilter stuff...

I saved this from a Tom Ogilvy post:
====================================

http://j-walk.com/ss/excel/usertips/tip044.htm

to get it to refresh:

=FilterCriteria(B5)&left(Subtotal(9,B5:B200),0)

this is one I wrote back in 2000

Here is a user defined function that will display the criteria in a cell:

Public Function ShowFilter(rng As Range)
Dim filt As Filter
Dim sCrit1 As String
Dim sCrit2 As String
Dim sop As String
Dim lngOp As Long
Dim lngOff As Long
Dim frng As Range
Dim sh As Worksheet
Set sh = rng.Parent
If sh.FilterMode = False Then
 ShowFilter = "No Active Filter"
 Exit Function
End If
Set frng = sh.AutoFilter.Range

If Intersect(rng.EntireColumn, frng) Is Nothing Then
 ShowFilter = CVErr(xlErrRef)
Else
lngOff = rng.Column - frng.Columns(1).Column + 1
If Not sh.AutoFilter.Filters(lngOff).On Then
  ShowFilter = "No Conditions"
Else
  Set filt = sh.AutoFilter.Filters(lngOff)
  On Error Resume Next
   sCrit1 = filt.Criteria1
   sCrit2 = filt.Criteria2
   lngOp = filt.Operator
   If lngOp = xlAnd Then
    sop = " And "
   ElseIf lngOp = xlOr Then
    sop = " or "
   Else
    sop = ""
   End If
  ShowFilter = sCrit1 & sop & sCrit2
 End If
End If
End Function

You could save these settings, do the work, then parse the saved settings and
reapply the criteria.