Esta macro pega datos de una hoja y celda seleccionadas a otra que se digita.
Es necesario escribir la ruta del archivo que esta trabajando.
Debe estar el archivo abierto.
No hay control efectivo de errores.
pasa toda la informacion d evalores y formulas. No la hice y respeto los creditos del autor Fernando
Sub pastesel()
Dim MyArea As Range
Dim V_Book0, V_Book, V_Sheet, V_Cell As String
Dim countlines As Single
'=== : tipear aquí el path y nombre del archivo de destino:
V_Book = "C:\Mis documentos\ichova\Miarchivo.xls"
'======================
V_Book0 = ThisWorkbook.Name
Set MyArea = Range(Selection.Address)
countlines = 0
Workbooks.Open V_Book
V_Book = ThisWorkbook.Name
Windows(V_Book0).Activate
V_Sheet = InputBox("Ingrese Nombre de la hoja", "HOJA?")
V_Cell = InputBox("Ingrese celda inicial para el pegado", "CELDA?")
If Right(V_Book, 4) <> ".xls" Then V_Book = V_Book & ".xls"
MyArea.Copy
Windows(V_Book).Activate
Sheets(V_Sheet).Select
Range(V_Cell).Select
ActiveCell.PasteSpecial xlPasteValues
Windows(V_Book0).Activate
MyArea.Select
For Each cell In MyArea
If InStr(1, ActiveCell.Formula, "=") > 0 Then
If InStr(1, ActiveCell.Formula, "!") = 0 Then
ActiveCell.Copy
Windows(V_Book).Activate
Sheets(V_Sheet).Select
Range(V_Cell).Offset(countlines).Select
ActiveSheet.Paste
Windows(V_Book0).Activate
End If
End If
countlines = countlines + 1
ActiveCell.Offset(1).Select
Next
Application.CutCopyMode = False
End Sub