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
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 endevour to help
Dave