I'm trying to loop through the non-blank cells in column A of a worksheet and then copy each of those values to another worksheet by using this;
'Import items
Set ws = DestFile.Sheets("HandoverSummary")
With DestFile.Sheets("HandoverItems")
Lastrow = Range("A65536").End(xlUp).Row
For Each cell...