VBA: Paste new data after last row

[knightwriter]

Hi all,

I currently have a macro to pull data from separate excel files into one tab on a masterfile. Every time I run the macro it simply replaces the data in the masterfile.

Im looking to create VBA so that when I run the original macro its know to paste the new data at the end of the last row of data in my masterfile?

All help much appreciated.

 

[Sektor]

The common logic is in defining the last cell (there're several methods). One of them is (pasting F1 cell into the last cell of column A):

Sub InsertIntoEnd()
    Dim last_row As Long
    last_row = Cells(Rows.Count, "A").End(xlUp).Row
    Range("F1").Copy Destination:=Cells(last_row + 1, "A")
End Sub

 

[knightwriter]

Hi Sektor,

Many thanks for the reply.

So I have added the code to the bottom of the script and have included the sheet I want it to find the last row in but I get the following error. Any suggestions?



-- removed inline image ---


Sub InsertIntoEnd()
Dim last_row As Long
Sheets("Test").Select
last_row = Cells(Rows.Count, "A").End(xlUp).Row
Range("A").Copy Destination:=Cells(last_row + 1, "A")
End Sub

 

[knightwriter]

Apologies, I was unaware of posting a cut out. I got the error Method 'Rang' of object '_Global' failed

 

[Sektor]

Range("A[SIZE=3][COLOR=#ff0000][B]1[/B][/COLOR][/SIZE]").

 

[knightwriter]

Great thanks,

So the vba is extracting data from a number of excel files and is still replacing the data within those same cells. And then macro that you kindly provided pulls the cell A into the last row.

I understand there is an ordering format that I must be missing but I want the macro to still extract the data and to put this new data into the last row, rather than what is happening above.

Thanks again.