need code to add table to activecell current region

Hello
What about this code

Sub Test()
    With Sheets("Sheet1")
        .ListObjects.Add(xlSrcRange, .Range(ActiveCell.CurrentRegion.Address), , xlYes).Name = "YourTableName"
    End With
End Sub