Macro to Run on Specific Rows

[Papi]

The following is a simple way I found on this site to enter dates for various date types. How can I limit the macros to only run on specific rows 6:14?

Sub DateStamp()
    Range("B" & ActiveCell.Row).Select
    ActiveCell.Value = Date
End Sub

 

[iliace]

Sub DateStamp()
  Dim i As Long
  For i = 6 to 14
    Range("B" & i).Value = Date
  Next i
End Sub

 

[BrianJN1]

Try: Range("B6:B14").Value = Date

 

[Papi]

Thanks for such quick responses. What I need it to do is run on one row at a time but only run on either row 6 or 7 etc. Basically I do not want the macro to run on rows 1 to 5 and 15 and higher. Sorry for the confusion in my wording

 

[BrianJN1]

Thanks for such quick responses. What I need it to do is run on one row at a time but only run on either row 6 or 7 etc. Basically I do not want the macro to run on rows 1 to 5 and 15 and higher. Sorry for the confusion in my wording

Ok, that means that you have to somehow input a row number. You could do something like:
Put "Choose Row" in A1 and then in B1 add the row number.

Your internal macro lines would then be:
x =Range("B1").value
If x<15 and x>5 then
Range("B" & x).value = date
end if

Obviously there is an input box method if you wish that but that may not suit your purposes.

 

[Peter_SSs]

Is this what you are looking for?

Sub DateStamp()
  With ActiveCell
    If .Row > 5 And .Row < 15 Then Range("B" & .Row).Value = Date
  End With
End Sub

 

[Papi]

Thanks very much gentlemen. I went with Peters code as it was exactly what I was in need of.

 

[Peter_SSs]

Thanks very much gentlemen.

Glad to help.