Calcular valores en rangos dinámicos con macro

Espero me puedan ayudar me encuentro realizando una macro en donde debo calcular los valores en un rango dinámico, esto se debe a que la tabla en donde tengo la información no siempre es la misma y varia la cantidad de datos de las cuales uso la siguiente fórmula que funciona bien.

' Calcular el Sub-Total del Importe Total
With Range("C2").CurrentRegion
UltimaFila = .Rows(.Rows.Count).Row
Range("F2:F" & UltimaFila).Formula = "=round(C2/1.18, 2)"
Range("G2:G" & UltimaFila).Formula = "=round(F2*0.18, 2)"
End With

' Enumerar filas por Mes y "0000"
With Range("D2").CurrentRegion
UltimaFila2 = .Rows(.Rows.Count).Row
Range("H2:H" & UltimaFila2).Formula = "=text(D2,""mm"")&text(row()-1,""0000"")"
End With

Con esta macro logro insertar las fórmulas en las filas y calcular sin problemas, el inconveniente es que se ven las fórmulas y solo deseo que se vea el resultado final estuve intentado de estas 2 maneras con la primera fórmula pero no tengo resultados.

'-------primera prueba----------------valor es cero
With Range("C2").CurrentRegion
UltimaFila = .Rows(.Rows.Count).Row
Range("F2:F" & UltimaFila).value = round(C2/1.18, 2)
End With

'-------segunda prueba----------------valor es cero
With Range("C2").CurrentRegion
UltimaFila = .Rows(.Rows.Count).Row

valor = round(C2/1.18, 2)
Range("F2:F" & UltimaFila).value = valor
End With