Dear Mark,
It's all part of the same problem that you responded to under my other post. Basicly what I am trying to do is create my own template that aren't templates. I want to use an elaborate form to gather information from the user and other excel different databases then enter that consolidated information to a new database. problem is that I have multiple rows of data that I want to enter at one time. AND i want it to create a Index# - ROW() number for each entry. I have come up with the following macro that does it fine ,but it seems cumbersum to me.
Range("I2:BF9").Copy
Sheets("db").Select
Range("I16").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("H2:H10").Copy
Range("H16").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("ENTRY").Select
End Sub
Since the Index# MUST be a formula and not a paste value I have to move over one column to the left After I value paste all the other information - then copy the row() formula to the newly entered cells.
I hope this explains it. I'm more confused now then ever!
Andy