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

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