SoloCodigo

A ver si te va esto...

Private Sub Command1_Click()
    Dim ApExcel As Variant
    Dim Fila As Integer
   
    Set ApExcel = CreateObject("Excel.application")
    With ApExcel
        .workbooks.Add
        Fila = 1              ' Pon aquí la primera fila que contenga datos
        Do
        If IsNull(cells(Fila,1)) then exit Do
        .cells(Fila, 3).formula =  .cells(Fila, 1) *  .cells(Fila, 2)

        Fila = Fila + 1
        Loop
        .Visible = True
    End With
    Set ApExcel = Nothing
End Sub

Probablemente tengas que hacer alguna corrección, porque lo estoy escribiendo en vivo... directamente en esta ventana del foro...

Saludos y suerte