Макрос, форматирующий массив как таблицу

[ILF_ollie]

Добрый день.
Подскажите, пожалуйста, как нужно доработать макрос, чтобы он форматировал весь массив как таблицу, вне зависимости от количества строк и столбцов в массиве.

[ILF_ollie]

Попробую переформулировать.

Имеется массив данных, в котором может меняться количество строк и столбцов.
Массив всегда начинается в ячейке А1.

Нужен макрос, который будет форматировать весь массив как таблицу.

В составленном мной макросе диапазон задается жестко.
Подскажите, пожалуйста, как нужно доработать его, чтобы он мог выделять всю таблицу, вне зависимости от количества строк и столбцов в массиве.

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$6"), , xlYes).Name = _
        "Table3"
    Range("Table3[#All]").Select
    ActiveSheet.ListObjects("Table3").TableStyle = "TableStyleLight8"
    ActiveSheet.ListObjects("Table3").Name = "SAP_import"
End Sub

[DiemonStar]

попробуйте так:

Sub Frm()
  With ActiveSheet
    .ListObjects.Add(xlSrcRange, .[A1].Resize(.Cells(Rows.Count, 1).End(xlUp).Row, _
       .Cells(1, Columns.Count).End(xlToLeft).Column), , xlYes).Name = "SAP_import"
    .ListObjects("SAP_import").TableStyle = "TableStyleLight8"
  End With
End Sub