Code:
Sub Button1_Click()
For i = 1 To 8
Sheets("UK").Cells(i, 1).Value = Sheets("Sheet" & i ).Cells(10, 1).Value
Next i
End Sub
Kratko pojasnje da mozes poslije da prilagodjavas
For i = 1 To 9
petlja koja ide od prvog do zadnjeg sheet-a, zavisno kolko ih imas
Sheets("UK").Cells(i, 1).Value
sheet u kojos se smjestaju rezultati u koloni A
Cells(10, 1) = A10, npr. B9=Cells(9, 2)