Copy Range from Sheet A then find the next empty row in sheet B

Hi

I want to do something that seems easy at first but im getting myself confused,

So what I want to do is add data into Sheet A each day then press a button which will copy the data in a range and paste it into Sheet B, but I want to create a list of all data so I need it to find the next empty cell and start the paste from there (if that makes sense).

I want it to create a data base on one sheet from a daily import, I have a code to copy one cell to next empty cell but dont know how to duplicate it to a range.

I hope I have given you enough info this is what I have done so far

Public Sub CopyData()
Dim ws As Worksheet, bi As Byte, vData(1 To 1)
Set ws = Sheets("A")
For bi = 1 To 1
vData(bi) = Application.Choose(bi, ws.Range("A1"))
Next bi
Sheets("B").Cells(Rows.Count, "B").End(xlUp).Offset(1).Resize(, 1).Value = vData
Set ws = Nothing
End Sub

Thank You

can I be cheeky and add another thing onto it, because I need to know the date of the import is there a way I could add "todays" date next to the newly pasted info?

thanks

Hi Richard

thanks for replying :-) I'm still new to the VBA world knicked the above from another thread how would I add that into my code or what amendments would I need to make to it to add this in

thank you

that code on it's own worked perfectly! thank you so much

my next step is to try and add a unique reference to the newly pasted info so I can compare one set against another, so I have a load of job numbers each day and I want to calculate if any have been completed (by not being on the second list) and any that are new ( not on the list before). I can calculate that with a formula but how would I add the imported date to the cell next to it? just on the newly added section, a bit of a shot in the dark really

It's alright mate I'll add the date into the data range then copy that over add the paste value into the code,

Thanks for your help richard I've added reputation as a thanks :-)