Hi,
I have this code that takes data out of a worksheet and puts in at the bottom of its respective worksheet.
I don't want it to go to the bottom and want to put the first one in row A8 and offset the rest by 6 rows down. so the second row will go to A14, 3rd A20,....
**the rows with comments is where the code has to go and is the code that puts it on the bottom of each sheetDim rngDataToProcess As Range 'Loop to move new data to its worksheet Dim intNextRowToProcess As Integer Dim strStartCell As String Dim strEndCell As String Dim strRowToProcess As String Dim strSrcSheet As String Dim strDstSheet As String Dim intAddNewRowPosition Dim strDataStartThisRow As Integer strStartCell = "B5" strEndCell = "B527" strSrcSheet = "MODIFIED" strDataStartThisRow = 3 Set rngDataToProcess = Range(strStartCell & ":" & strEndCell) For intNextRowToProcess = 0 To rngDataToProcess.Rows.Count - 1 Worksheets(strSrcSheet).Activate ' Start at the Sheet that contains the source data strDstSheet = rngDataToProcess.Cells(1, 1) ' Read the row to determine the destination sheet strRowToProcess = CStr(strDataStartThisRow + intNextRowToProcess) & ":" & CStr(strDataStartThisRow + intNextRowToProcess) ' Select Row in the worksheet to process Rows(strRowToProcess).Select Selection.Cut ' Cut the row so that it can be moved to the appropriate Sheet Worksheets(strDstSheet).Activate ' Move to destination sheet ' ActiveCell.SpecialCells(xlCellTypeLastCell).Select ' Find the row to add the new data ' intAddNewRowPosition = ActiveCell.ROW + 1 ' Rows(intAddNewRowPosition & ":" & intAddNewRowPosition).Select ' Select the row where the data will be moved ActiveSheet.Paste ' Put the data in the new row Next intNextRowToProcess 'END of move data
i hope this makes sense, please let me know.
Thanks