Private Sub CommandButton3_Click()
Dim xSource As Worksheet, xPuits As Worksheet
Set xPuits = Workbooks.Open(Filename:="C:\Users\Hector\Desktop\Hojas_FFS\HOJAS _ANALYSIS\Parte_6_BETA.xlsx").Sheets("DATOS")
Set xSource = Workbooks("DATOS_FFS.xlsm").Sheets("Parte 6")
xSource.Range("C8").Copy Destination:=xPuits.Range("C9")
End Sub