Copy and pasting a range using autofilter and input box

Hello, I currently run a report that contain an entire year of sales data. On a secondary tab I have a summary page where the user can input a date range so that the summary page just shows a snippet of the yearly data.

Currently the macro works fine, but missed the last column off the data. Any ideas?

The macro code is as follows....
'start date define
currentd2 = DateValue(InputBox("Start Date?", "Valid Format - dd/mm/yyyy", currentd))
'end date define
currentd3 = DateValue(InputBox("End Date?", "Valid Format - dd/mm/yyyy", currentd))

Range("c2").Select

Selection.AutoFilter Field:=6, Criteria1:=">=" & Format$(currentd2, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format$(currentd3, "mm/dd/yyyy")

Rows("2:" & lr).Select
Selection.Copy
Sheets("Daily & Weekly Summary").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
'turn off cut copy mode and hide worksheets
Range("A1").Select
Application.CutCopyMode = False

Any thoughts?

The number of rows are fine, it is simply cutting of the final column (column U)

Any help would be great.

It's difficult to say for sure without seeing the data, but I'd guess maybe column U has a formula in that doesn't calculate properly outside of it's current location?

Maybe put the following code in after line Selection.Insert Shift:=xlDown:

activesheet.pastespecial xlvalues

?