'Splitting array values into the correct column

Need some help on sorting the values into the correct column. I can't seem to figure out how I would return the array values to the proper column in the table.

For the output into column B "Pipe DN" it should return the first split text from the values in "Line number", and for the "Service" column F it should return the 2nd split text from "Line number".

How would I accomplish this? - If for "Pipe DN" I use Range("B19", Range("B19").Offset(Dimension1 - 1, 1)).Value = StrArray, it will return me the correct values, but the "Service" code is not written on the correct column. enter image description here

Sub SplitLinesIntoArray()
    
    Dim LineNumber() As Variant
    Dim StrArray() As Variant
    Dim Dimension1 As Long, Counter As Long
    
    LineNumber = Range("J19", Range("J19").End(xlDown))
    
    Dimension1 = UBound(LineNumber, 1)
    
    ReDim StrArray(1 To Dimension1, 1 To 2)
    
    For Counter = 1 To Dimension1
        'Pipe DN
        StrArray(Counter, 1) = Split(LineNumber(Counter, 1), "-")(0)
        Range("B19", Range("B19").Offset(Dimension1 - 1, 0)).Value = StrArray
        'Service Code
        StrArray(Counter, 2) = Split(LineNumber(Counter, 1), "-")(1)
        Range("F19", Range("F19").Offset(Dimension1 - 1, 0)).Value = StrArray(Counter, 2)
    Next Counter
    
    'Range("B19", Range("B19").Offset(Dimension1 - 1, 1)).Value = StrArray
    Erase LineNumber
    Erase StrArray
    
 End Sub

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution	Source

'Splitting array values into the correct column

Sources

Related Questions