VBA code for contiguous range and table formatting

[KimC2504]

Hi Again, Could someone please help me with the vba code for applying table formatting for a contiguous range. I have the code for the contiguous range ok but can't work out the table formatting

Set Rng = Range("B2").CurrentRegion
Rng.Select

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Rng), , xlYes).Name = _
        "Table3"
    Range("Table3[#All]").Select
    ActiveSheet.ListObjects("Table3").TableStyle = "TableStyleLight2"
    ActiveSheet.ListObjects("Table3").ShowAutoFilterDropDown = False

 

[KimC2504]

I came up with a solution, thanks for looking and have a nice day