[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]