Sub ArtReport()
With Sheets("art report")
.Unprotect
lRow = Worksheets("art report").Cells(Worksheets("Invoice").Rows.Count, 1).End(xlUp).Row
lRow = lRow + 1
'Inv no
Sheets("Invoice").Range("I8").Copy
Worksheets("art report").Range("A" & lRow).PasteSpecial xlPasteValuesAndNumberFormats
'date...