Hi,

I have a working VBA code which copies from a range of cells in a row from a worksheet and pastes them into another sheet.

InvSheet.Range(InvSheet.Cells(iRow, "B"), InvSheet.Cells(iRow, "K")).Copy
BatchSheet.Cells(oRow, "D").PasteSpecial xlPasteValues
iRow = iRow + 1
oRow = oRow + 1
Loop Until IsEmpty(InvSheet.Cells(iRow, "B")) Or InvSheet.Cells(iRow, "B") = 0

I need to make a change to this so that it picks one additional cell and copies its contents.

ie (Range (same row) A to K) + (same Row) Z

Can anyone help changing the code above?

Thanks.