The 2nd line is to insure that your input will be put in B5 if no data occurs from B5 and down.
[vba]Set cell = ActiveSheet.Range("B" & Rows.Count).End(xlUp)
If cell.Row < 5 Then Set cell = Range("B5")[/vba]
The 2nd line is to insure that your input will be put in B5 if no data occurs from B5 and down.
[vba]Set cell = ActiveSheet.Range("B" & Rows.Count).End(xlUp)
If cell.Row < 5 Then Set cell = Range("B5")[/vba]
Last edited by Kenneth Hobs; 12-18-2008 at 02:05 PM.
Posting Permissions
Reply With Quote