Sub Button1_Click()
For i = 1 To 9
Sheets("UK").Cells(i, 1).Value = Sheets("Sheet" & i).Cells(10, 1).Value
Next i
End Sub