Recuperar y modificar datos de una hoja de excel

Trabajo con dos hojas una con el nombre ARQ y otra con ARQG, en la primera tango los botones nuevo, guardar y recuperar, los cuales funcionan a mis necesidades, con el guardar lo guarda los datos de la hoja ARQ a ARQG, mi consulta es sobre el botón recuperar, con este botón selecciono una fecha y llena las celdas con la función busarv, lo que necesito es si modifico lo reemplace los datos de la fecha seleccionada.

Muchas gracias por su ayuda

Esta es mi macro para recuperar

Sub Recarq1()
Sheets("ARQ").Select
'BOB
Range("B5").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|2|0)"
Range("B6").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|3|0)"
Range("B7").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|4|0)"
Range("B8").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|5|0)"
Range("B9").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|6|0)"
Range("B10").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|7|0)"
Range("B11").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|8|0)"
Range("B12").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|9|0)"
Range("B13").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|10|0)"
Range("B14").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|11|0)"
Range("B15").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|12|0)"
'CHBO
Range("D5").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|13|0)"
Range("D6").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|14|0)"
Range("D7").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|15|0)"
Range("D8").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|16|0)"
Range("D9").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|17|0)"
Range("D10").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|18|0)"
Range("D11").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|19|0)"
Range("D12").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|20|0)"
Range("D13").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|21|0)"
Range("D14").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|22|0)"
Range("D15").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|23|0)"
'CHNBO
Range("E5").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|24|0)"
Range("E6").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|25|0)"
Range("E7").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|26|0)"
Range("E8").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|27|0)"
Range("E9").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|28|0)"
Range("E10").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|29|0)"
Range("E11").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|30|0)"
Range("E12").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|31|0)"
Range("E13").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|32|0)"
Range("E14").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|33|0)"
Range("E15").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|34|0)"
'CHMBO
Range("F5").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|35|0)"
Range("F6").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|36|0)"
Range("F7").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|37|0)"
Range("F8").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|38|0)"
Range("F9").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|39|0)"
Range("F10").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|40|0)"
Range("F11").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|41|0)"
Range("F12").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|42|0)"
Range("F13").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|43|0)"
Range("F14").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|44|0)"
Range("F15").FormulaLocal = "=BUSCARV($B$2|ARQG!$A$1:BQ3000|45|0)"
Range("B2").Select
End Sub

 Esta es mi hoja ARQ

Y guardo a la hoja ARQG

De la cual recupero los datos y de la cual quiero guardar si se modifica.