Visual Basic - Crear macro en excell

Buenas soy nuevo en el foro y tenia una consulta que hacer.

Tengo varios documentos en excell (cada uno de 30 megas) que tienen la siguiente pinta.

[URL=http://imageshack.us][IMG]http://img383.imageshack.us/img383/9132/excel7ug.jpg[/IMG][/URL]

Aqui esta el enlace a la captura de pantalla por si el link de arriba no va

http://img383.imageshack.us/img383/9132/excel7ug.jpg

Necesito rellenar esta columna con los datos de cada primera linea y haciendo copiar y pegar es un trabajo de chinos cuando cada excell tiene 16800 lineas...

Que manera se os ocurre de que pudiera realizar este proceso sin necesidad de hacer este trabajo de chinos.

P.D.: Agradeceria que si alguien conoce que manera seria la mas sencilla y rapida para esta tarea me ayudara.

Un saludo

[email protected]

Yo he utilizado archivos Excel desde VB y he ido creando f´romulas y pegando o haciendo lo que necesitara en cada momento.

m_excel.Workbooks.Open ruta & "archivo.xls"
Set objLibroExcel = m_excel.Workbooks(1)
Set objHojaExcel = objLibroExcel.Worksheets(1)

objHojaExcel.Range("B2").Value = "=IF(AND((SUM(B4:B507)/IF(SUM(B512:B1015)=0,0.000001,SUM(B512:B1015)))>0.05,(SUM(B4:B507)/IF(SUM(B512:B1015)=0,0.000001,SUM(B512:B1015)))<0.51),2,IF(AND((SUM(B4:B507)/IF(SUM(B512:B1015)=0,0.000001,SUM(B512:B1015)))>0.51,(SUM(B4:B507)/IF(SUM(B512:B1015)=0,0.000001,SUM(B512:B1015)))<20),1,0))"
objHojaExcel.Range("B2").Copy
objHojaExcel.Range("B2:HH2").PasteSpecial xlPasteFormulas