Código de Visual Basic para Aplicaciones - Macro en Excel para crear archivo

Private Sub CommandButton1_Click()

    Dim Fila, fila2, cont As Integer

    Dim rngOrigen As Excel.Range

    'Limpiar hoja 

    Hoja3.Rows("1:65500").Clear

    Fila = 19

    fila2 = 1

    cont = 1

    Do While Hoja2.Cells(Fila, "A") <> ""

        Hoja3.Cells(fila2, "a") = Hoja2.Cells(Fila, "a") 'UUID

        Hoja3.Cells(fila2, "b") = Hoja2.Cells(Fila, "b") 'Monto factura

        Hoja3.Cells(fila2, "c") = Hoja2.Cells(Fila, "i") 'RFC-emisor

        Hoja3.Cells(fila2, "d") = Hoja2.Cells(Fila, "d") 'Moneda

        Hoja3.Cells(fila2, "e") = Hoja2.Cells(Fila, "e") 'Tasa cambio

        If Hoja3.Cells(fila2, "e") = "" Then Hoja3.Cells(fila2, "e") = 1

        Hoja3.Cells(fila2, "f") = "|" + Hoja2.Cells(Fila, "f") + Hoja2.Cells(Fila, "g")  'Numero factura, serie +a folio

        Hoja3.Cells(fila2, "g") = Format(Hoja2.Cells(Fila, "h"), "MM/DD/YYYY")     'fecha facura

        Hoja3.Cells(fila2, "h") = " "                   'codigo proveedor

        Hoja3.Cells(fila2, "i") = Hoja2.Cells(Fila, "c")   'rfc_receptor

        Hoja3.Cells(fila2, "j") = " "                   'nombre del proveedor

        Hoja3.Cells(fila2, "k") = Hoja1.Cells(5, "b")   ' domnio

        Hoja3.Cells(fila2, "l") = Hoja1.Cells(6, "b")   ' entidad

        Hoja3.Cells(fila2, "m") = " "   ' poliza

        Fila = Fila + 1

        fila2 = fila2 + 1

    Loop

    Call copiarHOjaaLibroNuevo

End Sub

Sub copiarHOjaaLibroNuevo()

    mio = ActiveWorkbook.Name

    nombre = Sheets(2).Range("B3").Value

    Workbooks.Add

    otro = ActiveWorkbook.Name

    Workbooks(mio).Activate

    ' Sheets("Hoja1").Range("a5").Copy after:=Workbooks(otro).Sheets("Hoja1").Range("a1")

    Sheets(3).Copy after:=Workbooks(otro).ActiveSheet

    Application.DisplayAlerts = False

    Workbooks(otro).Sheets(1).Delete

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(nombre, "/", ""), FileFormat:=xlCSV

    Application.DisplayAlerts = False

    ActiveWorkbook.Close False

End Sub