Cargar datos usando referencia de hoja en variable

[juanpy]

Estimados,

Tengo uno mas de mis problemas. Necesito cargar los datos desde una hoja a otra

Para ello pretendi hacerlo con:

Set Mov1=ActiveWorkbook.Worksheets("Hoja1")
Set Mov2=ActiveWorkbook.Worksheets("Hoja2")
Set Venta=ActiveWorkbook.Worksheets("Hoja3")

Venta.Activate
for X=1 to 2
Cells(ActiveCell.Row, 4).Value = mov & x.Cells(x, 6).Value
Next

Muchas gracias