Sub Create_Report_Jess()
Set S1 = Sheets("Ship Plan")
Set S2 = Sheets("Report")
Set S3 = Sheets("Button")
Dim Cid As String
Dim Dept_Row As Long
Dim Dept_Clm As Long
S1.Range("B:I").Copy Destination:=S2.Range("A:H")
S1.Range("K:N").Copy Destination:=S2.Range("I:M")
S1.Range("P:R").Copy Destination:=S2.Range("N:Q")
S1.Range("T:Y").Copy Destination:=S2.Range("R:W")
S1.Range("AA:AA").Copy Destination:=S2.Range("X:X")
S1.Range("AC:BG").Copy Destination:=S2.Range("Z:BC")
S1.Range("BI:BP").Copy Destination:=S2.Range("BD:BK")
S2.Range("B2:C60000") = Format(Now(), "dd.mm.yyyy")
S2.Range("F:F").NumberFormat = "00000"
S2.Range("H:H").NumberFormat = "000"
Taille = Range("I:I").End(xlDown).Row
Table1 = S2.Range("I2", "I" & Taille)
table2 = S3.Range("A10:A40")
table3 = S3.Range("B10:B40")
Dept_Row = S2.Range("J2").Row
Dept_Clm = S2.Range("J2").Column
For Each C1 In Table1
S2.Cells(Dept_Row, Dept_Clm) = Application.Index(table3, Application.Match(C1, table2, 0))
Dept_Row = Dept_Row + 1
Next C1
End Sub