Promote Header and create table until last row

[xdenama]

I manually promote header and create a table. How to select all row with MACRO to include in table. Code below is manually drag. How to replace line

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F$1246"), , xlYes).Name = _

        "PreData"

Macro code

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Column1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:F1"), Type:=xlFillDefault
    Range("A1:F1").Select
    Range("A1:F1").Select
    ' ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F"), , xlYes).Name =
     '   "Table149"
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F$1246"), , xlYes).Name = _
        "PreData"
    Range("PreData[#All]").Select
    ActiveWindow.ScrollRow = 1213
    ActiveWindow.ScrollRow = 1204
    ActiveWindow.ScrollRow = 1131
    ActiveWindow.ScrollRow = 1101
    ActiveWindow.ScrollRow = 979
    ActiveWindow.ScrollRow = 934
    ActiveWindow.ScrollRow = 833
    ActiveWindow.ScrollRow = 782
    ActiveWindow.ScrollRow = 584
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 350
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 1
End Sub

 

[Fluff]

How about

Sub xdenama()
   Rows(1).Insert
   ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:F" & Range("A" & Rows.Count).End(xlUp).Row), , xlYes).Name = "PreData"
End Sub

 

[xdenama]

How about

Sub xdenama()
   Rows(1).Insert
   ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:F" & Range("A" & Rows.Count).End(xlUp).Row), , xlYes).Name = "PreData"
End Sub

Its working, thank you

 

[Fluff]

You're welcome & thanks for the feedback.