Why is this macro changing the headers when converting a range to a table?

[Coyotex3]

I'm trying to run this code to turn a range with proper headers into a table. When I run this code my headers become "Column1, Column 2, Column 3, etc.). How can I prevent this from happening?

Sub Macro3()

    Range("A1").Activate
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlYes).Name = _
        "Table1"
    ActiveCell.Range("Table1[#All]").Select
End Sub

 

[Osvaldo Palmeiro]

Try replacing the code line as below.

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Selection.Address), , xlYes).Name = "Table1"

Or just:

Sub Macro4()
 ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("A1").CurrentRegion.Address), , xlYes).Name = "Table1"
End Sub

 

[Coyotex3]

Try replacing the code line as below.

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Selection.Address), , xlYes).Name = "Table1"

Or just:

Sub Macro4()
 ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("A1").CurrentRegion.Address), , xlYes).Name = "Table1"
End Sub

You guys are gods amongst men. This works and it is perfect

I'm truly trying to learn VBA but I have no idea where to start. I always end up coming back here for help.