Copiar valores de una celda a otra e imprimir

Hola gente! He logrado filtrar automáticamente una base de datos, copiar el resultado y colocarlo en otra página, el tema es que se me ha complicado porque ahora necesito que la macro me controle cada una de las celdas de la primer columna y si estas celdas tienen un valor, que copie este valor, lo pegue en otra hoja y la imprima, y sino que deje de funcionar.

Yo armé algo con lo que fui encontrando aquí pero algo no puedo descubrirlo y funciona mal.

Function Variación()
Sheets("Imprime").Activate
For Each oCelda In Range("A2:A10")
x = oCelda.Value
If x >= 1 Then
Range("oCelda").Select
Selection.Copy
Sheets("Certif. Técnica").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Else
Sheets("Imprime").Select
ActiveCell.FormulaR1C1 = "=+Print!R[4]C[2]"
Range("A2").Select
Sheets("Print").Select
Range("D21").Select
End If
Next
End Function

La Hoja "Imprime" contiene todos los datos que necesito Imprimir, en la columna A están los datos que deben ser controlados, si por ejemplo la celda A2 tiene un valor, debe copiar éste valor y pegarlo en la hoja Certif. Técnica en la Celda A1 e imprimirlo, luego deberá regresar a la pagina Imprime y controlar la celda A3, si tiene un valor copiarlo y pegarlo en la hoja Certif. Técnica en A1 e imprimirlo y así sucesivamente y en caso que no tenga nada, deberá regresar a la pagina "Print".

Espero haber sido claro!

Muchísimas gracias de antemano!

Miguel Angel