Option Explicit
Sub Macro1()
[F1:G1].Copy
Range("F3:G" & [A2].CurrentRegion.Rows.Count).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F3:G" & [A2].CurrentRegion.Rows.Count).Value = Range("F3:G" & [A2].CurrentRegion.Rows.Count).Value
End Sub