How To Copy & Paste Data From One Tab To A Certain Cell In Another

[The_Snook]

Hi,

I'm trying to copy and paste data from one tab to the first empty row below existing data on another tab. My problem occurs at the red text below. I don't want to paste the copied data into cell 'A3110' that just happened to be the next free cell below the existing data when I recorded the macro. How can I amend it to achieve what i'm after?

    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Sheets("Data").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A3110").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Thanks in advance,

Snook