Hi,
I have a workbook that contains 3 sheets, 'Model Overview Sheet' , 'copier' and 'Return Row'
In the worksheet 'copier' it has 3 columns. SSR Reference which is a reference to the value in column A in the 'Model Overview Sheet'
In column B of 'copier' it has the row reference that the ssr reference number corresponds to in 'model overview sheet'
In column C of 'copier' there is the number that I would like each row in the 'model overview sheet' multiplied by.
I have macro code that returns rows from the 'model overview sheet' based on the ssr references entered into 'copier'.
My only issue is that I would like each row to be multiplied by the number given in column C of 'copier', can someone help me with that?
The spreadsheet is attached
Here is my code for the macro -
Sub Copy_SSR()
Dim a As Integer
Application.ScreenUpdating = False
Let a = 2
Let lrow = Sheets("Return Row").Range("c65536").End(xlUp).Row
Do While Sheets("Copier").Cells(a, 72).Value <> ""
Sheets("Return Row").Select
Rows(lrow - 1).Select
Selection.Insert shift:=xlDown
Sheets("Model Overview Sheet").Rows(Sheets("Copier").Cells(a, 2).Value).Copy Destination:=Sheets("Return Row").Cells(lrow - 1, 1)
Let lrow = lrow + 1
Let a = a + 1
Loop
Application.ScreenUpdating = False
End Sub
Any help would be appreciated.
Bookmarks