Data input help

[Tark221]

When submitting the data into the newly created spreadsheet for some reason it's entering it into row 14

i thought this code made it so it entered it in the next free row which would make it the second row down from the top

Dim iRow As Long
'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

End If


any suggestions?

 

[Trevor G]

Are you adding to a particular column if so then you could tell it to select an empty cell way down and then use the following to find the next empty row

Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1).Select

 

[Tark221]

Ah thanks for the reply
Is there a way to enter the data in a specific row?

 

[Trevor G]

You would simply use Range("A20").Select

But this isn't what you have asked for?