COPY AND PASTE

I AM TRYING TO OPEN A EXCEL FILE , COPY ITS CONTENTS INTO THE LAST ROW OF ANOTHER EXCEL FILE. THESE 2 EXCEL FILES HAVE THE SAME COLUMN HEADINGS AND NUMBER OF COLUMNS ETC. THEY ARE IDENTICAL. I AM GETTING AN ERROR IN THE PLACE WHERE I AM TRYING TO PASTE THE COPIED DATA. CAN YOU PL. HELP?

Private Sub mergeExcelFiles(ByVal excel_sFileName1 As String, ByVal excel_sFileName2 As String)
   'remove_file (sFileName)
     'Create a new instance of Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   'Dim Sheet As Object
   Set oExcel = CreateObject("Excel.Application")
   Dim numberOfRows As Integer
   Dim rowNumber As Integer
   Dim x As Integer
   Dim Varchar As String
   Dim Varchar1 As String
   Dim aseries As String
   Dim How_Many_Rows As Integer
   Dim lastRow As Integer
   
   
  oExcel.Application.DisplayAlerts = False
   If Dir$(excel_sFileName2) = "" Then

   
   
'MsgBox "No records to export"
    Exit Sub

   Else


  'Open the text file
   'Set oBook = oExcel.Workbooks.Open(excel_sFileName2)
   
   'oExcel.Application.DisplayAlerts = True

‘OPEN THE SECOND EXCEL FILE
   Workbooks.Open FileName:=excel_sFileName2
   oExcel.Visible = True
   
' DELETE FIRST ROW WHICH IS THE COLUMN HEADING
   Rows("1:1").Select  ' select the first row
    Selection.Delete Shift:=xlUp ' delete first row which is the column heading

   
    Cells.Select      ' select contents of the sheet
    Selection.Copy ' copy it
   
ActiveWorkbook.Save  ' save current worksheet
   'ActiveWorkbook.Close  ' close current worksheet

‘OPEN THE FIRST EXCEL FILE
    Workbooks.Open FileName:=excel_sFileName1

‘ FIND THE LAST ROW
      Range("A1").Select
    'Selection.End(xlUp).Select
     How_Many_Rows = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
'    How_Many_Rows = ActiveCell.Row
              lastRow = How_Many_Rows + 1

             
    'Rows("A" & lastRow).Select

    'ActiveSheet.Rows(ActiveSheet.Range("A1").CurrentRegion.Rows.Count).Select ' select the last row after values

‘I GET AN ERROR AT THIS POINT – UNABLE TO PASTE DATA INTO EXCEL FILE!!!!
    ActiveSheet.Rows("A" & lastRow).Paste

    'ActiveSheet.Paste ' paste data copied from excel_sFileName2

‘ADD A FILTER AND THEN SAVE EXCEL FILE.
      oExcel.Columns("AE:AE").Select
    oExcel.Selection.AutoFilter
    ActiveWorkbook.Save ' save excel file
    ActiveWindow.Close  ' close excel file






    oExcel.Application.DisplayAlerts = True


   oExcel.Quit
   Set oExcel = Nothing

    'remove_file (sFileName) 'this removes the csv file so that I only  see  the excel file
   End If

    'remove_file (sFileName) 'this removes the csv file so that I only  see  the excel file

End Sub