Right, lets start afresh here cos it isnt working....heres my code
currently

Sheets("Database").Select
Range("A1").Select
Selection.End(xlDown).Select
Sheets("Entry Form").Select
Range("D6,D8,D10,D12,D14,D16,D18").Select
Range("D18").Activate
Selection.Copy
Sheets("Database").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
Sheets("Entry Form").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.ClearContents
ActiveCell.Offset(-12, 0).Range("A1").Select
End Sub

basically. every time i click on the button on the 'form' worksheet. it
comes up with an error and on the 'database' worksheet it seems it keeps
going to the bottom cell on the entire worksheet. can you enter the code
into my above code and let me know what i have to do on my worksheets to
change this?? sorry but you might have to treat my like an idiot here!!


--
girth69
------------------------------------------------------------------------
girth69's Profile: http://www.excelforum.com/member.php...o&userid=23634
View this thread: http://www.excelforum.com/showthread...hreadid=517329