Thread: union - concatenate two ranges into one new range

A bigger vba program goes to a named range, inserts variable number of records each day at named range1, then directly below to namedrange 2.
Now, I want to take just the data of namedrange1, 2 and union them on a new worksheet to re-sort both.
Updated the code - go to two named ranges - pick current region - remove the header for each - create a new named range - union the two selections.

Code:

Sub TryCurrentRange()
'   InsertData & InsertData BG - want just data (no headers) concatenated
'   Pasted on new worksheet, then resort on column 3 (not yet shown in this code)
Dim Tbl As Range
    Application.Goto Reference:="InsertData" 'copyfromrecordset added x records
        Set Tbl = ActiveCell.CurrentRegion
        Tbl.Offset(1, 0).Resize(Tbl.Rows.Count - 1, Tbl.Columns.Count).Select
    ActiveWorkbook.Names.Add "InvGrNoHeaderF", Selection 'this created InvGrNoHeaderE - no header

    Application.Goto Reference:="InsertDataBG" 'copyfromrecordset added y records
        Set Tbl = ActiveCell.CurrentRegion
        Tbl.Offset(1, 0).Resize(Tbl.Rows.Count - 1, Tbl.Columns.Count).Select
     ActiveWorkbook.Names.Add "InvBGrNoHeaderF", Selection
    'Union - concatenate two ranges (ranges have only data, no header)
Union(Range("InvGrNoHeaderF"), Range("InvBGrNoHeaderF")).Select
' goto a namedrange on new workbook --I still need to insert this union
End Sub

Rx, edit that first post and slip the / inside the code tag, so it looks like this at the end:

[/code]

I can't seem to add a new named ragne using ActiveWorkbook.Names.Add Name
Usintg CurrentRegion, I select the data with the header
use Offset to resize and remove the headeer
Now, I need to add a named range with only the data minus the header
If I can name two ranges of data only - untion them - goto the next location and insert the union data...
it might be short and sweet

Code:

Sub TryCurrentRange()
Dim Tbl As Range
    Application.Goto Reference:="InsertData"   'a copyfromrecordset added x number of records
    Set Tbl = ActiveCell.CurrentRegion   ' this selects my data --- and the header above
    Tbl.Offset(1, 0).Resize(Tbl.Rows.Count - 1, Tbl.Columns.Count).Select    ' this should remove the header row
    ActiveWorkbook.Names.Add Name:="InvGrNoHeaderA", '????  '            ' new named range - with out a header
    '  wich named parameter allows me to create a InvGrNOHEADERa named range from Tbl ?