VBA: Convert Table to a Range

Hi,

I have the following VBA code that converts a range into a Table and renames it.

Can someone please suggest similar code that will convert a Table to a range?

Thanks!

Sub Test ()

	'Convert Range to a Table
	ActiveSheet.UsedRange
	Range ("A1").Select
	ActiveSheet.ListObjects.Add(xlSrcRange, Selection.CurrentRegion, , xlYes).Name = "MyTable"

End Sub