Choosing specific cells from lines in different lengths

[atakantekel]

Hi,

Thanks to Alansidman, who helped to solve my previous question.

Option Explicit

Sub LikeNr()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim lc As Long
lc = 25
Dim i As Long
Dim j As Long

Application.ScreenUpdating = False
For i = 1 To lr
For j = 1 To lc
If Cells(i, j) Like "19*" Then 'change this value as necessary or add an inputbox to search for a particular value.
Cells(i, j).Copy Cells(i, 26)
End If
Next j
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "complete"

End Sub

By above VBA solution I was able to move the cells beginning with specific numbers to a new column.
Now I have 4 lines (all might be in different lengths), where every 2 of them are identical with first four cells. I want to copy user1 from shorter line to the most right of longer one.

Above codes are only for moving S1 & T2 to the new columns.
My second question, how can we add W1 & V2 to the side columns?

Here I pictured what I tried to explain
Attachment 364711

Any help would appreciated.

[atakantekel]

Is there anybody who'd give an idea about it?