Hi
Try this and adapte to your file (I suppose that columns 3, 4 and 9 of worksheet Supply Data are date)
Public Sub Copy_Supply_Data()
Dim LastLig As Long, Number_Of_Rows As Long, Row_Counter As Long, i As Long, Check_Date As Long
Dim Row_Array As Variant, Record_Array As Variant, Tmp() As...