Merge records split between two rows into single row

[Buzoka]

I am trying to create VBA code that will allow a user select a range of data and recombine records split between two lines into a single line and remove the blank lines. See attached images of the data Before and what is expected after processing.

Below is code i tried

Sub GetRowData()
    Dim Myrange As Range
    Dim Myrow As Range
    Set Myrange = Selection
    Dim strVal As String
    Dim sHold As String
    
    For Each Myrow In Myrange.Rows
    If Myrow.Row Mod 2 = 0 Then
    strVal = Myrow.Columns(1).Cells
    Myrow.Columns(1).Value = ""
    'MsgBox Myrow.Offset(1, -1).Address
    'Myrow.Offset(1, -1).Cells = strVal
    ActiveCell.Offset(1, -1).Value = strVal
    End If
    Next Myrow
End Sub

[xor]

Can't you just use formulas?

[Pecoflyer]

Hi and welcome
in the future, please wrap your code with code tags (the #button)
If you are after a VBA solution please post in the correct sub-forum ( I will move it for you)
Thanks


BTW posting a sheet is better than a picture, which is nice to look at but worthless to work on

[Buzoka]

I need the solution applied to many workbooks and multiple records on each worksheet. I have to be able to select the range and apply the code over the selected range. Thanks

[NoSparks]

Do you confine your selection to the column you want to work with ?