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.