Necesito que me ayuden a mejorar esta macro

Sub Genera_Formula_Total_Finiquito()
Sheets("Hoja1").Select
Columna = 5
No_Encuentra = True
While No_Encuentra And Columna < 100
If Cells(2, Columna).Value = "MESES TRABAJADOS" Then
No_Encuentra = False
Columna_Meses_Trabajados = Columna
Else
Columna = Columna + 1
End If
Wend
If Not No_Encuentra Then
fila = 4
While Cells(fila, Columna_Meses_Trabajados).Value = ""
fila = fila + 1
Wend
Columna = Columna_Meses_Trabajados - 1
While Cells(fila, Columna).Value = ""
Columna = Columna - 1
Wend
Columna_Value = Columna
Columna_Meses = Columna_Meses_Trabajados + 6
While Cells(fila, 2).Value <> ""
If Cells(fila, Columna_Value) <> "" Then
Cells(fila, Columna_Meses).Formula = "=Value(" & letraColumna(Columna_Value) & fila & ":" & letraColumna(Columna_Value) & fila & ")"
Else
Cells(fila, Columna_Meses) = ""
End If
fila = fila + 1
Wend
End If
End Sub

Columna_Value = Columna
Columna_Meses = Columna_Meses_Trabajados + 6
While Cells(fila, 2).Value <> ""
If Cells(fila, Columna_Value) <> "" Then
Cells(fila, Columna_Meses).Formula = "=Value(" & letraColumna(Columna_Value) & fila & ":" & letraColumna(Columna_Value) & fila & ")"
Else
Cells(fila, Columna_Meses) = ""
End If
fila = fila + 1
Wend
End If
End Sub

En especial en la parte con negritas solo me busque el valor de las celdas con números negativos o menores que cero