Range("A8:E" & Range("C8").End(xlDown).Row).ClearContents
Range("G8:K" & Range("G200").End(xlUp).Row).Value = "no"
Application.AskToUpdateLinks = False
Workbooks.Open "K:\Risk Log\Risklog.xls"
Worksheets("Risk log").Activate
For i = 9 To Range("C9").End(xlDown).Row
[COLOR="Red"]Workbooks("mbr sources").Worksheets("Risks").Range("B" & i - 1).Value = Range("B" & i).Value[/COLOR]
Workbooks("mbr sources").Worksheets("Risks").Range("C" & i - 1).Value = Range("C" & i).Value
Workbooks("mbr sources").Worksheets("Risks").Range("E" & i - 1).Value = Range("J" & i).Value
next i