Function to get Union of Ranges

I can make a union of ranges

Sub CombileMultipleRange()
Dim ws As Worksheet
Dim objCombinedR As Range, r1 As Range, r2 As Range
Dim LR As Long

Set ws = ThisWorkbook.Sheets("OriginalData")

LR = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

   Set r1 = ws.Range("A1:D1" & LR)

   Set r2 = ws.Range("F1:G1" & LR)

   Set objCombinedR = Union(r1, r2)

    objCombinedR.Select
    
 End Sub

But I want a inputbox to show and select the header rows of the columns I need in the union I got this far
Thanks

Sub CombileMultipleRange()
Dim ws As Worksheet
Dim objCombinedR As Range, r1 As Range, r2 As Range

 On Error Resume Next
    Set rng = Application.InputBox("Select column(s)", Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    With Cells(1).CurrentRegion

    CODE?   
    
 End Sub