Loop if one column value next column?

[misscrf]

I am new to looping and am hoping someone might be able to help out. I have constructed a loop on column H. The problem is that I don't know how to loop the value into column I. Can anyone please help? I am posting the code here, but you will see that I have I2 hard coded, when the I cell should be the I on the same row as the H cell that is being evaluated.

Dim varCounter As Integer

 Range("h2").Select
      
   Do Until Selection.Value = ""
                
   Loop
   If Selection.Value = 65536 Then
   i2.Value = "Read"
   ElseIf Selection.Value = 131072 Then
   i2.Value = "Write"
   ElseIf Selection.Value = 196608 Then
   i2.Value = "Modify"
   ElseIf Selection.Value = 262144 Then
   i2.Value = "Execute"
   ElseIf Selection.Value = 524288 Then
   i2.Value = "Delete"
   ElseIf Selection.Value = 1048576 Then
   i2.Value = "Change Permissions"
   ElseIf Selection.Value = 2097152 Then
   i2.Value = "Take Ownership"
   ElseIf Selection.Value = 1 Then
   i2.Value = " Read Contents"
   ElseIf Selection.Value = 2 Then
   i2.Value = "Write Contents"
   ElseIf Selection.Value = 8 Then
   i2.Value = "Delete"
   ElseIf Selection.Value = 1677216 Then
   i2.Value = "Search"
   ElseIf Selection.Value = 1769472 Then
   i2.Value = "Full"
   Else: Selection.Value = "No Writes Assigned"
 
 End If
 
 Selection.Value = Selection.Value + 1
 Selection.Offset(1, 0).Select

End Sub

Thanks~!