在 VBA excel 上复制和粘贴

Question

I couldnt find any code already posted to actually copy the entire row (like a form)

then pastes at the bottom in the first empty row of the database.

can anyone please help? Thanks

form A6:AY

Answer 1

Untested from mobile:

Sub CopyPaster()

With ActiveSheet
     .Range("A6").EntireRow.Copy
     .Cells(Application.WorksheetFunction.CountA(.Range("A:A")+3,1).PasteSpecial xlPasteValues 'Plus 3 to account for the two blank cells in column A
End With

End sub