Hi,

I have the code below which hides empty columns when I autofilter from
column D onwards. The autofilter data sits in column C. All I want is the
Column data to sit in column D and it hide columns from E onwards. What
little thing do I change? Thanks.

Sub ABC()
Dim lastColumn As Long, rngA As Range, i As Long
Dim rng1 As Range
Application.ScreenUpdating = False
Columns.Hidden = False
lastColumn = Me.Cells(1, "IV").End(xlToLeft).Column
Set rngA = Me.AutoFilter.Range
Set rngA = rngA.Offset(1, 0) _
  .Resize(rngA.Rows.Count - 1, 1)
For i = 4 To lastColumn
 Set rng1 = Cells(3, i).Resize(rngA.Rows.Count, 1)
 If Application.Subtotal(3, rng1) = 0 Then
    Columns(i).Hidden = True
 End If
Next
Application.ScreenUpdating = True
End Sub