Option Explicit
Dim myp, myc

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
'адрес ячейки активизируемой после нажатия Enter
a = ActiveCell.Address
'если изменяемая ячейка в столбце для ввода цифр определяющих сколько ячеек
'закрашивать-красим указанное количество
If myc =  3  Then
Range(Range(myp).Offset(,  3 ).Address & ":" & _
Range(myp).Offset(,  2  + Range(myp).Value).Address).Select
Selection.Interior.ColorIndex =  6 
End If
'выделяем ячейку активизируемую после нажатия Enter
Range(a).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'определение адреса и столбца изменяемой ячейки
myp = ActiveCell.Address
myc = ActiveCell.Column
End Sub