See below for a sample to change all value in Column I to M to their absolute Values
Sheets("Trans").Select
LastRow2 = Cells(Rows.Count, 1).End(xlUp).Row
with ActiveSheet
Set rngToAbs = ActiveSheet.Range("I1:M" & LastRow2)
rngToAbs.Replace what:="-", lookat:=xlPart, replacement:=""
End With