copy and paste data to another workbook vba

hi, i have this code,is a code for copy and paste in another workbook but i dont know how to select all the data that i will write and then copy and paste in another workbook. please help me with my code

Private Sub CommandButton1_Click()
Dim InputFile As Workbook, OutputFile As Workbook
Dim Inputpath As String, Outputpath As String '
Dim lastRow As Long, rng As Range

'Dim lastRow As Long
'Dim rng As Range


Sheets("cotizacion").Select

Set rng = ActiveSheet.Cells
lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1
Range("a" & lastRow).Select

    
    ActiveCell.Offset(0, 11) = Tex20
    ActiveCell.Offset(0, 12) = Combo10
  ActiveCell.Offset(0, 13) = Combo20
    ActiveCell.Offset(0, 14) = Combo30
     ActiveCell.Offset(0, 15) = Tex12
      ActiveCell.Offset(0, 16) = Tex13
      ActiveCell.Offset(0, 17) = combo40
    ActiveCell.Offset(0, 18) = Tex15
    ActiveCell.Offset(0, 19) = Tex16
    
    Sheets("Origen1").Select
    
    lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1
Range("a" & lastRow).Select

    
    ActiveCell.Offset(0, 11) = Tex20
    ActiveCell.Offset(0, 12) = Combo10
  ActiveCell.Offset(0, 13) = Combo20
    ActiveCell.Offset(0, 14) = Combo30
     ActiveCell.Offset(0, 15) = Tex12
      ActiveCell.Offset(0, 16) = Tex13
      ActiveCell.Offset(0, 17) = combo40
    ActiveCell.Offset(0, 18) = Tex15
    ActiveCell.Offset(0, 19) = Tex16
    
    
'Set rng = ActiveSheet.Cells
'lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1

'## Open both workbooks first:
Set InputFile = ActiveWorkbook
Set OutputFile = Workbooks.Open(ThisWorkbook.Path & "\LibroDestino.xlsm")

'Now, copy what you want from InputFile:
InputFile.Sheets("Origen1").Range("A2", Range("A2").End(xlToRight)).Select.Copy

 'Range("a2", Range("a2").End(xlToRight)).Select

'Now, paste to OutputFile worksheet:

OutputFile.Sheets("destino").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteAll
'Close InputFile & OutputFile:
OutputFile.Close True

Range("A2", Range("A2").End(xlToRight)).Select

Selection.ClearContents


    
     Unload ingresodatos
ingresodatos.Show
    
 End Sub

Hi,

I think that your problem is here:

InputFile.Sheets("Origen1").Range("A2", Range("A2").End(xlToRight)).Select.Copy

Try running your code without the .Select

yeah thats one of my problems but do you know how can i select all the written data and then paste it into another workbook . after try many times i just select a range, but then another problem appears because first i copy in one sheet and after that in another and in the last sheet it select the range of the other sheet and write there and i dont know how to fix that

Private Sub CommandButton1_Click()
Dim InputFile As Workbook, OutputFile As Workbook
Dim Inputpath As String, Outputpath As String '
Dim lastRow As Long, rng As Range



'Dim lastRow As Long
'Dim rng As Range



Sheets("cotizacion").Select
Set rng = ActiveSheet.Cells
lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1
Range("a" & lastRow).Select

    
    ActiveCell.Offset(0, 11) = Tex20
    ActiveCell.Offset(0, 12) = Combo10
  ActiveCell.Offset(0, 13) = Combo20
    ActiveCell.Offset(0, 14) = Combo30
     ActiveCell.Offset(0, 15) = Tex12
      ActiveCell.Offset(0, 16) = Tex13
      ActiveCell.Offset(0, 17) = combo40
    ActiveCell.Offset(0, 18) = Tex15
    ActiveCell.Offset(0, 19) = Tex16
    
    Sheets("Origen1").Select
    
  Set rng = ActiveSheet.Cells
lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1
Range("a" & lastRow).Select

    
    'Set rng1 = ActiveSheet.Cells
    'lastRow2 = rng1.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1
'Range("a" & lastRow2).Select

    
    ActiveCell.Offset(0, 11) = Tex20
    ActiveCell.Offset(0, 12) = Combo10
  ActiveCell.Offset(0, 13) = Combo20
    ActiveCell.Offset(0, 14) = Combo30
     ActiveCell.Offset(0, 15) = Tex12
      ActiveCell.Offset(0, 16) = Tex13
      ActiveCell.Offset(0, 17) = combo40
    ActiveCell.Offset(0, 18) = Tex15
    ActiveCell.Offset(0, 19) = Tex16
    
    
    
    

'Set rng = ActiveSheet.Cells
'lastRow = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row + 1

'## Open both workbooks first:
Set InputFile = ActiveWorkbook
Set OutputFile = Workbooks.Open(ThisWorkbook.Path & "\LibroDestino.xlsm")

'Now, copy what you want from InputFile:
InputFile.Sheets("Origen1").Range("A2:S27").Copy

 

'Now, paste to OutputFile worksheet:

OutputFile.Sheets("destino").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteAll
'Close InputFile & OutputFile:
OutputFile.Close True

Range("A2:S27").Select

Selection.ClearContents


    
     Unload ingresodatos
ingresodatos.Show
    
 End Sub

Select your sheet first i.e.

InputFile.Sheets("Origen1").Select
Range("A2", Range("A2").End(xlToRight)).Copy