Bem vindo ao Planilhando, @e_straub.

É mesmo necessário que seja via VBA? Uma fórmula tão simples em G4 como = - F4 ou = - ABS(F4) se já for negativo (depois arrasta) já não resolveria?

Em todos os casos, segue:

Sub Negativar()
  Dim c As Range
  For Each c In ActiveSheet.Range("F4:F9").Cells
    c.Offset(0, 1).Value = -Abs(c.Value)
  Next c
End Sub
 

@edsonbr Muito obrigado pela valiosa ajuda! deu certo!!