Esse pequeno código sujo e sujo substituirá os valores na planilha ativa pelos que estiverem nas mesmas células de outra planilha:
Sub xFory()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As String
Set ows = Sheets("Sheet1") 'Change to your destination sheet
Set tws = Sheets("Sheet2") ' change to your data sheet
rng = "A1:G12" ' Change to your range address
ows.Range(rng).Value = tws.Range(rng).Value
End Sub
Editar: código editado um pouco.