En principio creo que, si las consultas estan bien, cosa que no sé, si column no vale 1 al llegar al loop no va a entrar en el.
Creo que la fila 10,0 no existe asi que igual la da como vacia.
Prueba asi:
Código :
Ver originalColumn = 1
Do Until WRKNEW.Worksheets(1).Cells(10, Column) = ""
WRKNEW.Worksheets(1).Cells(19, Column) = WRKNEW.Worksheets(1).Cells(15, Column) + WRKNEW.Worksheets(1).Cells(17, Column)
Column = Column + 1
Loop