Something's not right and I expect the x and y won't change in the quotations. Any ideas?
Sub linkMergedCells()
Dim x As Integer
Dim n As Integer
n = 3
x = 6
Do While x > 0
For y = 1 To 6
Worksheets("Sheet1").Cells ("A" & n)
.Formula = "=Sheet3!(x,y)"
n = n + 2...