>>981
For ccc = 1 To 6
ActiveSheet.ListObjects(1).ListColumns(ccc).Range.Clear
Next

マクロの記録でやったほうが早いな