Hide The Cell In Column

1. I have Column I, K, L which contain Values (no formulas/references)
2. I need each cell in those column to divide each value by corresponding # in column H. For example I2=10, macro needs to turn I2 = 10/H2. Then everything needs to be formated to 3 decimals. And I need the same to happen for each Cell in Column I, K, L. At the end those columns need to be hidden.

Here is the code that was written before (i'm getting an error in highlighted part):

Dim MyRange As Range, NewFormaula As String, Delim As Range
Dim Cell As Range
Dim MyString As String
Dim Format As Range
Dim ws As Worksheet

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Delim = "@"
For Each ws In Worksheets
Select Case ws.Name
Case "PBDay locks", "Total Locked Pipeline"
Set MyRange = ws.Range("I:I")........................