En Excel sumar renglón de celdas en columna G

Podría ser de esta manera para actualizar la columna G.

Sub actualiza()
  Dim Hoja As String
  Dim i As Long
  '
  Hoja = "Tabla2"
  Sheets(Hoja).Copy After:=Sheets(2)
  ActiveSheet.Name = "Copia"
  For i = 3 To 27
    Select Case i
      Case 14, 15, 16, 17
      Case Else
        Sheets(Hoja).Cells(i, "G").Value = Sheets(Hoja).Cells(i, "G").Value * 1.1
    End Select
  Next i
  Sheets(Hoja).Select
End Sub

Sheets(Hoja).Cells(i, "G") ---> Aquí puedes indicar la columna "G" es más fácil identificar la columna por la letra que por el número.

Si el resultado lo quieres en la columna 4 ("D"), entonces:

Sheets(Hoja).Cells(i, "D").Value = Sheets(Hoja).Cells(i, "D").Value * 1.1

Pero también puedes utilizar el objeto Range:

Sheets(Hoja).Range("G" & i).Value = Sheets(Hoja).Range("G" & i).Value * 1.1

Si quieres aplicar el formato:

Sub actualiza()
  Dim Hoja As String
  Dim i As Long
  '
  Hoja = "Tabla2"
  Sheets(Hoja).Copy After:=Sheets(2)
  ActiveSheet.Name = "Copia"
  For i = 3 To 27
    Select Case i
      Case 14, 15, 16, 17
      Case Else
        With Sheets(Hoja).Range("G" & i)
          .Value = .Value * 1.1
          .NumberFormat = "$#,##0.00"
        End With
    End Select
  Next i
  Sheets(Hoja).Select
End Sub

Por último, tengo la duda, en cuál hoja quieres los cambios en "Tabla2" o en "Copia"?

En tu macro haces los cambios en la hoja "Tabla2" y así lo dejé en mis propuestas.

Hola Dante.

En Tabla2 tal como está la macro. La hoja Copia es creada al abrir el libro por 1ª ves en el mes que es una copia del contenido de Tabla2 ANTES de darse el cambio Verifica la línea en MAYÚSCULAS para lo que necesito

Sub actualiza()
HOJA = "Tabla2"
Sheets(HOJA).Copy After:=Sheets(2)
ActiveSheet.Name = "Copia"
For I = 3 To 27
    If I = 14 Or I = 15 Or I = 16 Or I = 17 Then
    Else
        VALOR = Sheets(HOJA).Cells(I, 4).Value
        Sheets(HOJA).Cells(I, 4).Value = VALOR * 1.1
Sheets(HOJA).Cells(I, 4).Value = VALOR * 1.1 '¿se puede agregar a esta linea la G también y como?
'o ¿será asi?
SHEETS(HOJA).CELLS(I, 7).VALUE = VALOR * 1.1 ESTA LINEA EN MAYUSCULAS
    End If
Next I
Sheets(HOJA).Select
End Sub

 A esta macro ademas de seguir con la D, solo hay que agregarle la G tambien sin quitarle la D y asi quedar con las 2, D y G con los mismos renglones de celdas y la misma macro.

Gracias Dante

Pero no sé por cuál VALOR se va a multiplicar en tu macro VALOR toma el dato de la columna D, ¿pero para la columna G también debe tomar el dato de la columna D o de la G?

Prueba lo siguiente:

Sub actualiza()
  Dim Hoja As String
  Dim i As Long
  '
  Hoja = "Tabla2"
  Sheets(Hoja).Copy After:=Sheets(2)
  ActiveSheet.Name = "Copia"
  For i = 3 To 27
    Select Case i
      Case 14, 15, 16, 17
      Case Else
        Sheets(Hoja).Cells(i, "D").Value = Sheets(Hoja).Cells(i, "D").Value * 1.1
        Sheets(Hoja).Cells(i, "G").Value = Sheets(Hoja).Cells(i, "G").Value * 1.1
    End Select
  Next i
  Sheets(Hoja).Select
End Sub

Claro, pensé eso, esta la interrugante en la línea que deje en MAYÚSCULAS pero daba errado el resultado pero con el

Select Case

todo va perfecto, SOLO un detalle, el resultado de $3,74 es $4,12 y me pone 4,11, ¿podrias darme la solucion de este detalle? para que coloque lo que es, 4,124612808086197 y asi me pone lo abajo de 5 o si es acima de 5 me colocará 4,13 y quiero que me coloque 4,12  para que coloque el resultado correcto.

El valor es ese, * 1.1 que son los 10% de 3,74

Perfecto

Puedes darme aquí el resultado de lo que te pido extra a la pregunta actual, ¿o en otra pregunta?

Quisiera resultados sin redondearlos. Si el resultado es Ej. 511,12 coloque los 511,12 y no 511,00.

Si es 511,17, no coloque 512,00

¿En esta actual pregunta? ¿O crear nueva?

Lo demás está perfecto