I've written a basic macro with extracts records based on two dates:
Sub extractDataBasedOnDate()
Dim lastrow As Long, erow As Long, i As Long
Dim mydate As Date
Dim StartDate As Date
Dim EndDate As Date
StartDate = Worksheets("Expense Report").Cells(3, 1).Value
EndDate =...