VBA Macro To Transpose List To A Row On Different Sheet

I have the below VBA but am getting a 1004 error and when I step into each line I do not see the macro populating the cells as designed. The purpose of the macro is to take a list from the "EmployeeBillableHours" worksheet select the entire list s.tarting from row 2, then goto to "Client" worksheet, then starting at cell J6 paste each item on the list and then move 4 cells to the right and paste the next item on the list to the end.

Code:
Sub ClientListtoClientTab()
Dim lr As Long: lr = Worksheets("EmployeeBillableHours").Range("H" & Rows.Count).End(xlUp).Row

[Code].....