Run-time-error 1004 -- Method 'Range' of object '_Global' failed

[tilleyd]

Hello, I have highlighted in RED the line that gets highlighted for debugging. Please help, I am a complete newbie to VBA scripting. Thanks.

Sub Macro4()
'
' Macro4 Macro
'
'
    Range("Table1[[#Headers],[Profile]]").Select
    ActiveWindow.SmallScroll Down:=-18
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("B6").Select
    Selection.ListObject.ListColumns(2).Delete
    Range("F2:I2").Select
    Selection.ListObject.ListColumns(6).Delete
    Selection.ListObject.ListColumns(6).Delete
    Selection.ListObject.ListColumns(6).Delete
    Selection.ListObject.ListColumns(6).Delete
    Range("Table1[[#Headers],[Username]]").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("D4").Select
    Selection.ListObject.ListColumns.Add Position:=4
    Range("E3").Select
    Selection.ListObject.ListColumns.Add Position:=5
    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range( _
        "Table1[[#Headers],[LastVisitDate]]"), DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=True, OtherChar:="T", _
        FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("F4").Select
    Selection.ListObject.ListColumns(6).Delete
    Columns("E:E").Select
    Range("F2").Select
    Selection.ListObject.ListColumns.Add Position:=6
    Columns("E:E").Select
    Selection.TextToColumns Destination:=Range("Table1[[#Headers],[Column1]]"), _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=True, OtherChar:="Z", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
        TrailingMinusNumbers:=True
    Range("Table1[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "LastVisitTime"
    Range("E2").Select
    Columns("E:E").EntireColumn.AutoFit
    Range("F2").Select
    Selection.ListObject.ListColumns(6).Delete
    Range("C5").Select
    Columns("D:D").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("Table1[[#Headers],[BrowserName]]").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("F3").Select
    Selection.ListObject.ListColumns.Add Position:=6
    Range("Table1[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "DayOfWeek"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=TEXT([@LastVisitDate], ""dddd"")"
    Range("Table1[[#Headers],[BrowserName]]").Select
    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[LastVisitDate]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[LastVisitTime]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-6
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Formatted_Internet_History"
    Range("Table1[[#Headers],[BrowserName]]").Select
End Sub

[p24leclerc]

You can either select the headers :

Range("Table1[#Headers]").Select

or the table data :

Range("Table1").Select

I don't know about "Profile" at all.
Regards