На технических ресурсах принято выражать свою положительную оценку кнопкой "Нравится", тем самым указывая на полезность материала.
ActiveSheet.ListObjects.Add(, ActiveSheet.UsedRange, , xlYes).Name = "Table_1"
ActiveSheet.ListObjects(1).Delete
Каждый кулик своё болото хвалит )
curl -m 1 -sI URL