HALP! Count and Insert Rows and Specific Data on Another Sheet.

Example.xlsx
I wanted to count how many rows of data there are in a sheet. Insert the counted rows in another sheet but with specific data.

Well, I got the CountA Function to work to count how many rows, I just don't how to go from here if it is even what I need...

Dim NumRows As Integer
NumRows = WorksheetFunction.CountA(Range("A2:A50"))


See attached for example:
Sheet1: Dynamic Data.
The list will be dynamic so I have to... I guess count how many rows there are with data and then insert it into sheet2.

Sheet2: So depending how many rows there are in sheet1 with data(names), they will be named by the Department they are in(Accounting). I also would like to have the Date and Time put together from the Date/Time from Sheet1 into Sheet2. I suppose you could use int and mod together but again I am stuck in how to put things together or even where to begin....