Sub Values_6() Rows("1").Value = Rows("1").Value End Sub Sub Values_7() Rows("1:3").Value = Rows("1:3").Value End Sub