Cutting data form one sheet and pasting into last row on another sheet

[josephwatson123]

Hi,

i am looking to use VBA to cut data from one sheet (A1 for example) then paste into another sheet but within the second sheet there is a list of data, i need the formula to find the last entry then paste below it. (obviously assigning this to a button)

i have managed to create something like this in the past for the next column, i tired to edit it to do rows but i seem to have broke it (see below).

Sheets("New Entry").Range("A6").Copy
    Sheets("DOI Smartcard").Cells("A", Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
    Application.CutCopyMode = False

could someone please advise on the above and see if they have a better option or can fix this...

 

[Scott T]

With the Cells range object the row is first then the column.

Sheets("DOI Smartcard").Cells(Rows.Count,"A").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)