I understand I should try to copy the data into an array, manipulate it within that array and then paste the results back to a new sheet. The macro executes up to about 2-3k rows before crashing. ProgressCount = Range('A' & Rows.Count).End(xlUp).RowĪpplication.StatusBar = 'Updating :' & ProgressCount - 1 & ' of ' & ProgressTarget & ': ' & Format((ProgressCount - 1) / ProgressTarget, '0%') Range(Cells(Copy_Row + 1, 'A'), Cells(Copy_Row + Send_Count - 1, 'L')).Select Range(Cells(Copy_Row, 'A'), Cells(Copy_Row, 'L')).Copy If (Send_Type = 'Many' And (Send_Count > 1) And IsNumeric(Send_Count)) Then if N is greater than 1, the result should be the data displayed N times.ĬURRENT VBA Sub Copy_PROD_Paste_Send_Count().If N is 1, there's no copy/insert/paste required.I'd like the result to be the data pasted N times. paste that data N-1 times into those rows.In Column L there's a 'Send Count' value, which is numeric ('N'). In Column K there's a 'Send Type' value which can either be 'Many' or 'Single'. I have an Excel file with my source data in Columns in A to J.

Copy paste list into excel