Sub kopeeri1()
  Range("f1").Value = Range("b2").Value
  Range("f3").Value = Range("b2").Value
End Sub