codice:
Dim ObjExcel As Excel.Application
Dim ObjWB As Excel.Workbook
Dim ObjWS As Excel.Worksheet
Dim ObjWs2 As Excel.Worksheet

Set ObjExcel = New Excel.Application
Set ObjWB = ObjExcel.Workbooks.Open(App.Path & "\Prova.xls")
Set ObjWS = ObjWB.Worksheets(1)
Set ObjWS2 = ObjWB.Worksheets(2)
Conta = 1
    While Not ((ObjWS.Cells(Conta, 1).Value = "") And (ObjWS.Cells(Conta, 2).Value = ""))
        ObjWs2.Cells(Conta, 1).Value = ObjWS.Cells(Contatore, 1).Value
    Wend

ObjExcel.Workbooks.Close
Set ObjExcel = Nothing

Spero di aver scritto bene.

Ciao