Excel - Pasar datos de una celda a otra y se quede grabado

Sub exportarPDF()

    Dim Ruta_PDF As String, Nombre_PDF As String, Colum As Byte

    Ruta_PDF = "C:\Users\Daniel Zamora\Desktop\FACTURAS 2021\"

    Nombre_PDF = [B3] & [-C9] & -Year(Date)

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

                                    Filename:=Ruta_PDF & Nombre_PDF, _

                                    Quality:=xlQualityStandard, _

                                    IncludeDocProperties:=True, _

                                    IgnorePrintAreas:=False, _

                                    OpenAfterPublish:=True

    ActiveWindow.SmallScroll Down:=-15

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _

                                         Collate:=True, _

                                         IgnorePrintAreas:=False

    Colum = 12

    While Cells(11, Colum) <> "" And Cells(11, Colum) <> Range("B3")

        Colum = Colum + 1

    Wend

    Cells((Val(Range("C9")) * 3) + 10, Colum) = Range("H23")

    Cells((Val(Range("C9")) * 3) + 11, Colum) = Range("D42")

    Range("F9:H9").Select

End Sub

| No. Factura | Emisor  |  Total  | Suma Total |

+-------------+---------+---------+------------+

|           1 | ALBERTO |   121 € |    1.042 € |

+-------------+---------+---------+------------+