VBA code does not perform any action

[snb]

MS prevented this in the listobject design.
Avoid reading more than once from a worksheet.
Exploit Excel's built-in options like advancedfilter.

This will suffice:

Sub M_snb()
  Sheet2.Cells(1, 2).Resize(, 7) = Application.Index(Sheet1.ListObjects(1).HeaderRowRange.Value, 1, Array(11, 20, 17, 26, 34, 35, 41))
  Sheet1.ListObjects(1).Range.AdvancedFilter 2, , Sheet2.Cells(1, 2).CurrentRegion
End Sub