Попытка построить масштаб, используя циклы For, If и Offest

Question

Я составляю код, который берет электронную таблицу «Samples» с базой данных глубины и отображает числа в «Log»

Sub Log()


 
Dim i As Integer
For i = 1 To 4


   Sheets("Samples").Select
   
   Sheets("Log").Select
   If Value <= 0.2 Then
    ActiveSheet.Range("C9").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value < 0.4 And Value > 0.2 Then
    ActiveSheet.Range("C10").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value <= 0.5 And Value >= 0.4 Then
    ActiveSheet.Range("C11").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 0.5 And Value < 0.9 Then
    ActiveSheet.Range("C12").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value < 1 And Value >= 0.9 Then
    ActiveSheet.Range("C13").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1 And Value < 1.2 Then
    ActiveSheet.Range("C14").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.2 And Value <= 1.5 Then
    ActiveSheet.Range("C15").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.5 And Value < 1.8 Then
    ActiveSheet.Range("C16").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 1.7 And Value < 1.9 Then
    ActiveSheet.Range("C17").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 1.9 And Value < 2 Then
    ActiveSheet.Range("C18").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 2 And Value < 2.2 Then
    ActiveSheet.Range("C19").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.2 And Value < 2.4 Then
    ActiveSheet.Range("C20").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.4 And Value <= 2.5 Then
    ActiveSheet.Range("C21").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 2.5 And Value < 2.8 Then
    ActiveSheet.Range("C22").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 2.8 And Value < 3 Then
    ActiveSheet.Range("C23").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3 And Value < 3.2 Then
    ActiveSheet.Range("C24").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 3.2 And Value <= 3.5 Then
    ActiveSheet.Range("C25").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3.5 And Value < 3.7 Then
    ActiveSheet.Range("C26").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value >= 3.7 And Value <= 3.9 Then
    ActiveSheet.Range("C27").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   ElseIf Value > 3.9 And Value < 4 Then
    ActiveSheet.Range("C28").Value = Sheets("Samples").Range("B6").Offset(i - 1)
   End If
   
Next i
  
   

End Sub

электронная таблица, шкала глубины.

Проблема в том, что я использую Offset, и цикл не работает для всей базы данных.Звезды петли на B6 до B13 в электронной таблице «Образцы».Вот что я уже сделал