Range("b" & ActiveCell.Row + 1 [B][COLOR="Blue"]& ":C" & ActiveCell.Row + 1[/COLOR][/B]).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("b" & ActiveCell.Row - 1[B][COLOR="Blue"] & ":C" & ActiveCell.Row - 1[/COLOR][/B]).Select
Selection.PasteSpecial Paste:=xlValues