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.