"OVERWRITE EXISTING CELLS WITH NEW DATA..." GET DESELECTED

Hi, i use workaround with VBA:

Sub SetExternalDataProperties()
' Change TableName to yours table name
Range("TableName[[#All]]").Select
        With Selection.ListObject.QueryTable
            'set true or false
			.RowNumbers = False
            .AdjustColumnWidth = False
            .PreserveColumnInfo = True
			.PreserveFormatting = True
'set one of three XlCellInsertionMode 			
			.RefreshStyle = xlOverwriteCells ' Possible:
'xlInsertDeleteCells	1	Partial rows are inserted or deleted to match the exact number of rows required for the new recordset.
'xlInsertEntireRows	2	Entire rows are inserted, if necessary, to accommodate any overflow. No cells or rows are deleted from the worksheet.
'xlOverwriteCells	0	No new cells or rows are added to the worksheet. Data in surrounding cells is overwritten to accommodate any overflow.

            
        End With
End Sub

After sitting all parameters just run macro and its sets them without crashing.