VBA code adjustment help please. Copy paste to end of data on sheet vs overwriting data for multiple instances

[roberttkim]

Hi all. I was hoping someone could be so kind as to help me tweak my code. Currently the code opens a file and copies that information into a sheet in my workbook. It does this for 3 different files sitting in the network drive. I however would like it to rather than overwrite and paste on the designated sheets to paste below the last set of data in column A for each instance. Could someone please help?

Sub RECON()

Dim NmStr As String
NmStr = ActiveWorkbook.Name
Windows(NmStr).Activate

Report = Sheets("RECON").Range("B2").Value
Workbooks.Open Filename:=Report
ActiveSheet.Cells.Copy
Windows(NmStr).Activate
Sheets("eBackOffice_Summary_LCs").Select
Range("A1").Select
ActiveSheet.Paste


Report = Sheets("RECON").Range("B3").Value
Workbooks.Open Filename:=Report
ActiveSheet.Cells.Copy
Windows(NmStr).Activate
Sheets("OpsReports_LCs_DailyTrialBalanc").Select
Range("A1").Select
ActiveSheet.Paste


Report = Sheets("RECON").Range("B4").Value
Workbooks.Open Filename:=Report
ActiveSheet.Cells.Copy
Windows(NmStr).Activate
Sheets("OpsReports_LCs_STA").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

 

[Osvaldo Palmeiro]

Hi. Try to replace for the 3 instances of your code:
this line ~~~> Range("A1").Select
by this ~~~> Cells(Rows.Count, 1).End(3)(2).Select

 

[roberttkim]

I'm getting an error that says to copy all cells from a worksheet make sure you paste it to the first cell. The last row of data on the sheet i want to paste it to is determined by column E. Help please?