Macro code to filter and sum unique matched pairs of data

Thanks for the help Jerry. The part 4 code:
Sub MergeItems()

'Merge QTY column for same items
Dim LastRow As Long, Rw As Long
Dim DelRNG As Range
Application.ScreenUpdating = False

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set DelRNG = Range("A" & LastRow + 10)

For Rw = 2 To LastRow
    If Application.WorksheetFunction.CountIf(Range("A2:A" & Rw), _
        Range("A" & Rw)) > 1 Then
            Set DelRNG = Union(DelRNG, Range("A" & Rw))
    Else
        Range("B" & Rw) = Application.WorksheetFunction.SumIf(Range("A:A"), _
            Range("A" & Rw), Range("B:B"))
    End If
Next Rw

DelRNG.EntireRow.Delete xlShiftUp
Set DelRNG = Nothing
Application.ScreenUpdating = True
End Sub

Seemed to do the trick for what I am doing. However, when I tried using it for data in which column A was a combination of numbers and tex (i.e. EE.1985.DOG), the quantity column had all "0"'s (column A merged successfully).

Outside of that, I had a couple of other questions too.

If I wanted the original data to remain and not be displaced by the new data generated by the subroutine macro (the new stuff appears a column or two to the right, for example), how would I approach that?

Also, what if the data was not in columns A and B, like for example the user had to select the first column and then select the second column?

Thanks for the help, I'm pretty new to VBA and have only really done some basic stuff with functions. I appreciate it.

Thanks, I got the code to work. Turns out it was a small issue with how the data had been entered. I think the code will work fine for my purposes, but I feel like I should try something on my own so I've been working with something to try and achieve the purposes mentioned in my first post.

Function Unique2(CodesInput, HoursInput)

Dim Unique() As Variant
Dim Element As Variant
Dim i As Integer
Dim FoundMatch As Boolean
Dim HoursArray()
Dim NUnique As Variant
Dim t As Integer

numunique = 0
For Each Element In CodesInput
        FoundMatch = False
        'Check to see if item already added
        For i = 1 To numunique
            If Element = Unique(i) Then
            FoundMatch = True
                Exit For
            End If
        Next i
    
    'Add item to unique list if unique
    If Not FoundMatch And Not IsEmpty(Element) Then
      numunique = numunique + 1
      ReDim Preserve Unique(numunique)
      Unique(numunique) = Element
    End If
    
Next Element

'Transpose unique elements to vertical list
temp = WorksheetFunction.Transpose(Unique)

'Sum up the values for unique elements
For t = 1 To numunique
    tempsum = WorksheetFunction.SumIf(CodesInput, Unique(t), HoursInput)
Next t

Unique2 = tempsum

End Function

I'm running into problems with the sum part. I can only return the last element's sum instead of an entire array. If I can return an array that gives me the sum for the unique elements then I will have both:
-An array of the unique elements
-An array of the unique sums of those elements

I figure if I can put them together then I will have a code that works similar to the sub macro, but allows the user to select the inputs. But alas, I am hitting another roadblock.

Any help is appreciated, and thanks in advance.

Small update: I'm now having a problem combining the two arrays in my code.

Function Unique2(CodesInput, HoursInput)

Dim Unique() As Variant
Dim Element As Variant
Dim FoundMatch As Boolean
Dim HoursArray()

numunique = 0
For Each Element In CodesInput
        FoundMatch = False
        'Check to see if item already added
        For i = 1 To numunique
            If Element = Unique(i) Then
            FoundMatch = True
                Exit For
            End If
        Next i
    
    'Add item to unique list if unique
    If Not FoundMatch And Not IsEmpty(Element) Then
      numunique = numunique + 1
      ReDim Preserve Unique(numunique)
      Unique(numunique) = Element
    End If
    
Next Element

'Transpose unique elements to vertical list
temp = WorksheetFunction.Transpose(Unique)

'Sum up the values for unique elements
ReDim HoursArray(1 To numunique)
For t = 1 To numunique
    tempsum = WorksheetFunction.SumIf(CodesInput, Unique(t), HoursInput)
    HoursArray(t) = tempsum
Next t

'Transpose unique sum of hours array to vertical
temp2 = WorksheetFunction.Transpose(HoursArray)

'Combine element array with hours array
???????


End Function

I'm tring to return a X by 2 column array, with the first column containing the values from the temp array and the second column containing the values from the temp2 array. I just want them to show up side by side in excel after running this function, but can't figure out a way to do so.

Any help is appreciated for this beginner.

Another update:

I'm having trouble with the union function. I just want the two arrays created in my code to appear next to each other in the output, but putting in union() creates a type mismatch error.

Function Unique2(codesinput As Range, hoursinput As Range)

Dim Unique()
Dim Element
Dim FoundMatch
Dim HoursArray()

numunique = 0
For Each Element In codesinput
        FoundMatch = False
        'Check to see if item already added
        For i = 1 To numunique
            If Element = Unique(i) Then
            FoundMatch = True
                Exit For
            End If
        Next i
    
    'Add item to unique list if unique
    If Not FoundMatch And Not IsEmpty(Element) Then
      numunique = numunique + 1
      ReDim Preserve Unique(numunique)
      Unique(numunique) = Element
    End If
    
Next Element

'Transpose unique elements to vertical list
temp = WorksheetFunction.Transpose(Unique)


'Sum up the values for unique elements
ReDim HoursArray(1 To numunique)
For t = 1 To numunique
    tempsum = WorksheetFunction.SumIf(codesinput, Unique(t), hoursinput)
    HoursArray(t) = tempsum
    Next t

'Transpose unique sum of hours array to vertical
Dim temp2
temp2 = WorksheetFunction.Transpose(HoursArray)


'Combine element array with hours array
Unique2 = Union(Unique, HoursArray)


End Function

Is there a way I can get around this?