I have this recorded macro and would like for it to loop for the rows in colum b which have data.
what it should be doing is taking the 'name' in column B, inserting that value into the worksheet named Universe Information Ratio and spit back out the results in the corresponding rows in the first sheet. Then it copy and paste specials values and continues all the way down until there is no longer any data in column b
Sub loopfeed()
'
' loopfeed Macro
'
' Keyboard Shortcut: Ctrl+d
'
Sheets("Universe Information Ratio").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "='Universe Macro'!RC"
Range("B3").Select
Sheets("Universe Macro").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "='Universe Information Ratio'!RC[2]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "='Universe Information Ratio'!RC[2]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "='Universe Information Ratio'!RC[1]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "='Universe Information Ratio'!RC[1]"
Range("D2:E2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G2:H2").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Bookmarks