i am facing problem with range object

hello friends,
i am trying to activate a cell in a "range" so that i can make an entry in three consecutive cells using "offset" property but i am getting an error that says "application defined or object-defined error"
can anyone tell me what i am doing wrong

code:
project = InputBox("enter the project number") 'obtain project number from user
name = InputBox("enter the customer name") 'obtain customer name from user

i = 4
For Each num In Range("number") ' i have defined a range called "number" in "sheet3" of active workbook and the range is from B4 to B33
'using variable i from 4 to 33 to navigate the range using co-ordinates
If num.Value = nill Then 'find a nill cell in the range
Worksheets("sheet3").Range(Cells(i, 2)).Select 'trying to select the range this part gives error
Exit For 'once found a nill cell exit the for loop
End If

i = i + 1
Next

ActiveCell.Offset(0, 0).Value = project 'feeding data in the cells using offset property
ActiveCell.Offset(0, 1).Value = name
ActiveCell.Offset(0, 2).Value = Now()






PS: Looking forward to the relevant help.thanks in advance

Hi and welcome to the board

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here