Can anyone help me? This code works but it takes toooo long to run. Is there a way I can rework the de to speed it up?Thank you,Nate Sub MoveLS() Dim i As Variant Dim endrow As Integer Dim ASR As Worksheet, LS As Worksheet Set ASR = ActiveWorkbook.Sheets("Detailed Activity") Set...