Sub kopeeri3()
    Range("b2").Copy
    Range("I2").Select
    ActiveSheet.Paste
    Range("I4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub