Variable Range Copies To Second Worksheet

Not sure why this Code is not copying data across to the second worksheet.

The attached file 140404 Need Range.xlsm is an extract showing only the relevant elements of a much larger structure.

Drivers upload a stock record each day onto the Data Input sheet, listing what products and volumes they have loaded.

Because the range of products varies every day, this has to be set as a "dynamic" range on the worksheet.

To create a printable form, I need to copy each Item ID and Quantity from the Data Input sheet into the "Van Load" spreadsheet.

So Data Input D10 copies to Van Load E6 and the quantities from C10 to G6, down one row, repeat, etc. until the last row of variable Data Input range.

Option Explicit

Sub VANRECORD()
Dim lRow As Range, oCell As Range, nRD As Range, ws As Worksheet

Set lRow = ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row)

[Code] .....