Hi All

This line of code has served me well to date in other workbooks I have
created, that said.! not so in this particular book that is causing me to
spend alot of time here asking for help....

Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select

In the following code it works well on the first pass placing everything
where it should be, but then when I hit it again, it overwrites the first,
when it is supposed to go to the next available blank cell below.

This particular piece of code only needs to copy into a range of Rows 10 to
19.

So, first entry goes into "Y10" and then copies the offset values.
Then if the user has another entry to add to it, it should drop down to the
next available blank cell which would be "Y11", and do it's thing there and
so on....

Sub Go_Runsheet()

With Application
.ScreenUpdating = False
End With

Sheets("RunSheet P1").Select

Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select

ActiveCell.Select
With Selection
.Value = Sheets("Run Setup").Range("D2").Value
End With

ActiveCell.Offset(0, 55).Select
With Selection
.Value = Sheets("Run Setup").Range("A2").Value
End With

ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("B2").Value
End With

ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("F2").Value
End With

Range("AU30").Select

With Selection
.Value = Sheets("Run Setup").Range("E2").Value
End With

With Application
.ScreenUpdating = True
End With


End Sub

As always

Many thanks in advance for any asistance you can afford me..

Cheers
Mick.