Sub Macro1()
Set myrng = Range("A1").CurrentRegion
Dim aa As String
For i = 2 To 101
For j = 5 To myrng.Columns.Count
If myrng.Cells(i, j).Text <> "" Then
aa = myrng.Cells(1, j).Value
End If
Next
myrng.Cells(i, 3).Value = aa
Next
End Sub