Vacuum Sealed wrote on 6/20/2011 :
Thx Garry

Still no joy on this code placing the Values in their correct columns.

Not sure if this has any bearing, but some of the Columns are merged across
as many as 13 Columns due to the nature & structure of the sheet in question,
although, I can't see that being the reason as the code I originally put
together works on them.

I have changed it slightly but it is functional.

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").Value = Sheets("Run Setup").Range("E2").Value

With Application
.ScreenUpdating = True
End With

End Sub

Thx again.

Mick.

My code works for my sample sheets, so I don't understand why it
doesn't work for you. (It's does exactly the same thing as yours does,
just more efficiently!)

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc