Макрос Excel - выберите все ячейки с данными и отформатируйте в виде таблицы
Можно ли написать макрос, который может отформатировать таблицу из любого активного выбора? Например, у меня есть макрос, который в основном просто делает выбор диапазона Ctrl + Shift + End. После этого я хотел бы, чтобы макрос мог форматировать выбранный диапазон в виде таблицы, однако, когда я записываю это действие в VBA, он будет использовать адреса диапазонов, которые не всегда будут одинаковыми от листа к листу.
Sub A_SelectAllMakeTable()
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AO$2959"), , xlYes).Name _
= "Table1"
Range("A1:AO2959").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium15"
End Sub
Заранее спасибо.