Hi, bmbalamurali,
maybe something like this:
Sub PRC()
'
' PRC Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
With ActiveCell
.Value = "Processor"
.Offset(0, 1).Value = "Reviewer"
.Offset(0, 2).Value = "Comments"
.Offset(1, 0).FormulaR1C1 = _
"=INDEX(Sheet2!C1,MATCH(ROW()-" & .Row & ",Sheet2!C3))"
.Offset(1, 1).FormulaR1C1 = _
"=INDEX(Sheet2!C4,MATCH(ROW()-" & .Row & ",Sheet2!C6))"
.Offset(1, 0).Resize(1, 2).AutoFill Destination:=.Offset(1, 0).Resize(35, 2), Type:= _
xlFillDefault
End With
End Sub
Ciao,
Holger
Bookmarks