Macro to append data to the bottom of a column

[RachelBrown]

I have a macro that adds data to the bottom of a column, it worked the first time but it keeps pasting in different spots in my worksheet. Can someone spot what is wrong?

Dim lastRow As String
Range("D3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Notes").Select
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveSheet.Paste
    Application.CutCopyMode = False

 

[Joe4]

You are solving for lastRow, but then not using that calculation in determining where to paste your data.
What column are you trying to paste this data to?
If column A, try adding this line above your "ActiveSheet.Paste" line:

Range("A" & lastRow).Activate

 

[Scott T]

This pastes to the currently selected cell.

ActiveSheet.Paste

You should specify where to paste for example

Cells(lastRow,1).paste

 

[kvsrinivasamurthy]

Replace the code as below

[COLOR=#333333]Dim lastRow As long[/COLOR]
    lastRow = Sheets("Notes").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("D3").Select
    Range(Selection, Selection.End(xlDown)).Copy Sheets("Notes").Range("A" & lastRow)

 

[RachelBrown]

Thank you all for your help! All of your solutions work great

 

[RachelBrown]

You are solving for lastRow, but then not using that calculation in determining where to paste your data.
What column are you trying to paste this data to?
If column A, try adding this line above your "ActiveSheet.Paste" line:

Range("A" & lastRow).Activate

I ended up going with this, however instead of .Activate, I used .Select

 

[Joe4]

I ended up going with this, however instead of .Activate, I used .Select

Either one will work. They essentially do the same thing.

 

[RachelBrown]

Either one will work. They essentially do the same thing.

Hmm, I tried .Activate first and it caused an error.

 

[Joe4]

Odd. It worked for me.
Just go with whatever works for you.