Insert Copied Cells Macro

[#1]

Mods, please close.

[Anonymous]

Hi

Please delete  "red color cells"

and

after  

objSheet.PasteSpecial(xlPasteValues)

  lrow = objSheet.Range("B10000").END(xlup).row   'for finding lastrow after the data copied

Range(Cells(lrow, 2), Cells(lrow + 1, 9)).Select   'selecting two last rows

Selection.Interior.color = vbred    ' formatting as red cells

[#3]

Not quite what I wanted but thanks anyway.