I'm creating a macro to copy information entered into a form and
put it into a database. It works fine as long as the first row of
information is filled out in the database. If the no information has
been added to the database yet I get Run-Time Error 1004 Application
Defined or Object Defined Error. What can I change to correct this
from happening

Sheets("Form").Select
Range("A6:X20").Select
Selection.Copy
Sheets("Database").Select
Range("A10").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select

maybe add a :
If Range("A6:X20").value <>"" then
Selection.Copy
Sheets("Database").Select
Range("A10").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select
else
msgbox "There is No Value in the range !!"
end if

"bactfarmer" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I'm creating a macro to copy information entered into a form and
> put it into a database. It works fine as long as the first row of
> information is filled out in the database. If the no information has
> been added to the database yet I get Run-Time Error 1004 Application
> Defined or Object Defined Error. What can I change to correct this
> from happening
>
> Sheets("Form").Select
> Range("A6:X20").Select
> Selection.Copy
> Sheets("Database").Select
> Range("A10").Select
> Selection.End(xlDown).Offset(1, 0).Select
> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Selection.End(xlDown).Select
>

Maybe you could start at the bottom of column A and go up to find the last used
cell in that row, then come down one row.

Dim RngToCopy as Range
Dim DestCell as range

with worksheets("form")
set rngtocopy = .range("a6:X20")
end with

with worksheets("Database")
set destcell = .cells(.rows.count,"A").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell



bactfarmer wrote:
>
> I'm creating a macro to copy information entered into a form and
> put it into a database. It works fine as long as the first row of
> information is filled out in the database. If the no information has
> been added to the database yet I get Run-Time Error 1004 Application
> Defined or Object Defined Error. What can I change to correct this
> from happening
>
> Sheets("Form").Select
> Range("A6:X20").Select
> Selection.Copy
> Sheets("Database").Select
> Range("A10").Select
> Selection.End(xlDown).Offset(1, 0).Select
> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Selection.End(xlDown).Select

--

Dave Peterson