Sheets("Ввод").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

LastRow = Cells(65536, 1).End(xlUp).Row
LastCol = Cells(1, 255).End(xlToLeft).Column

SelectionAddress = Selection.Address


With ActiveSheet
 .ListObjects.Add(xlSrcRange, .Range(SelectionAddress), , xlYes).Name = _
        "Table1"
 End With
         

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight2"

Dim oSh As Worksheet
    Set oSh = ActiveSheet
    'remove table or list style
    oSh.ListObjects("Table1").Unlist