Relacionar dos columnas en Visual Basic con offset

mi pregunta es que tengo un inventario de materiales usados en un hospital utilizados en un mes, ya he relacionado en un combobox el nombre del material y automáticamente me aparece la clave en un textbox, cómo puedo situarme en la columna del día que aparecen a la derecha del nombre del material y empiezan con la numeración 1..2...3..4 hasta 31 y si yo escribo en el textbox el día 5, la macro vaya directamente al día 5 y ahí mismo pueda escribir la cantidad de material que utilice ese mismo día con el dato que tengo en el combobox específicamente.

CÓDIGO UTILIZADO.

Sub Cargar_Material() Application.ScreenUpdating = False

Workbooks.Open ThisWorkbook.Path & "\1.-Reportes por Servicio\Área Quirurgica.xlsm" ActiveSheet.Range("B7").Activate

With UserForm1

Do While ActiveCell.Value <> ""

.ComboBox4.AddItem ActiveCell.Offset(1, 0).Value

ActiveCell.Offset(1, 0).Activate If ActiveCell.Value = "" Then

Exit Sub

End If

Loop

End With

Application.ScreenUpdating = True End

Sub Sub cargar_clave() Application.ScreenUpdating = False

ActiveSheet.Range("B7").Activate
With UserForm1

Do While ActiveCell.Value <> .ComboBox4.Value

ActiveCell.Offset(1, 0).Activate

.TextBox1.Value = ActiveCell.Offset(0, -1).Value

Loop

Exit Sub

End With

Application.ScreenUpdating = True

End Sub

CÓDIGO ERRÓNEO:

Sub día() Application.ScreenUpdating = False

Workbooks.Open ThisWorkbook.Path & "\1.-Reportes por Servicio\Área Quirurgica.xlsm" ActiveSheet.Range("c7").Activate

With UserForm1

Do While ActiveCell.Value <> ""

.ComboBox5.AddItem ActiveCell.Offset(0, 1).Value

ActiveCell.Offset(0, 1).Activate

If ActiveCell.Value = "" Then

Exit Sub

End If

Loop

End With

Application.ScreenUpdating = True

End Sub