[vba]

Public Sub ProcessData()
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = 3 To 12

.Cells(3, i).Resize(Lastrow - 2).Value = .Cells(1, i).Value
Next i
End With

Application.ScreenUpdating = True
End Sub
[/vba]