Looks like the same answer to me:

Range("D65536").End(xlUp).Offset(1,0).Select


To Jill Thomlinson, you said:

Thanks for your time and help

Dave


"Jim Thomlinson" wrote in message
...
Change
Range("D4").Select
to
Range("D65536").End(xlUp).Offset(1,0).Select
--
HTH...

Jim Thomlinson


"Dave" wrote:

I have a workbook with different sheets
I fill in data on the balance sheet

"Dave" wrote in message
...
No, I have two different responses to the same problem
for which you don't have an answer.
I wanted to reach as many eyes as possible and just because someone is
looking at a general excel group it doesn't mean they don't know the
answer
to more specific problems.
If you hadn't been curious you wouldn't have looked
and you chose to waste yours and everyone else's time with an
uninformative
posting that could have been mailed direct

Bye



"Trevor Shuttleworth" wrote in message
...
Dave

please don't post to more than one group ... you just waste everyone's
time.
You have two identical responses in two different groups

Regards

Trevor


"Dave" wrote in message
...
I have a workbook with different sheets
I fill in data on the balance sheet
copy cheques data into sheet2, a list of all cheques &
copy invoice data into sheet3, a list of all invoices
I have recorded a macro and assigned it to a new button
for each of these tasks
The only problem is, after pasting the data into sheet 2 or 3
I need to move down to select the next empty cell before finishing so
that
it is set up ready for the next use of the macro.
Recording the macro does this fine the first time but as it specifies
the
actual cell selected it always returns to the same cell, hence it will
only
paste into the first two cells.
I would like it to move down one cell from which ever cell is selected
without specifying the location can anyone tell me how to do this or
how
to
edit my original macro

Sub ChequesOut()
'
' ChequesOut Macro
' Macro recorded 14/07/2005 by D L
'

'
Selection.Copy
Sheets("Cheques").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D4").Select (THIS IS THE PROBLEM)
Sheets("Spreadsheet").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 43
End With
End Sub

Thanks to anyone who may endeavour to help
Dave