Writing a loop to look up data

Hi everybody!

For a project I am working on I am working on a rather difficult task. To put it simply: I want to write a piece of code in VBA that is able to look at a row of data, and then return the information that is provided in some of the cells (other cells are empty). I know this sounds rather vague. In the attached sheet I have added more information, and a description of how I figured out so far it should work. Is there anyone who could have a look at this and perhaps help me out with it? I think it a very complex problem and there might not be a perfect solution for it.

Place your data from row1 and column1 and paste this code and run the macro and tell me if it worked for you. I could not attach the excel file.
ravisahankar

Sub tryme()
Dim a As Integer, b As Integer, c As Integer
For c = 2 To Cells(Rows.Count, 1).End(xlUp).Row
b = 1
For a = 2 To 14
If Cells(c, a) <> "" Then
Cells(c, b + 14) = Cells(c, a)
b = b + 1
End If
Next a
Next c
MsgBox "Complete"
End Sub