particular line only

[ram567]

Could you help me the below one. i dont know how to write it in EB CODE

the below code has copied everyhting in screen
but only copy the head line and contents only
could you guide me

iRows = sess.Screen.iRows
iCols = sess.Screen.iCols


for iCount = 1 to iRows
aline = sess.Screen.GetString(iCount, 1, iCols)
wb.WorkSheets("sheet1").Cells(iCount, 1).Value = aline
next iCount