Macro copiar solo celdas con datos.

Buenas tardes,

Os comento lo que tengo y necesito.

Partimos de dos hojas de excel. En una de ella vamos a pegar una serie de datos en tres columnas, los vamos a retocar y poco mas. Una vez esos datos están listos, los copiamos en otra hoja de forma ordenada. En la primera hoja tratamos los datos por columnas, y en la segunda lo que antes ocupaba una columna, ahora va pegado en celdas combinadas.

De momento tengo este macro:

Sheets("PEGADO").Select
Range("A52:C52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-51]C[0]"
Range("D52:R52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-51]C[-2]"
Range("S52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-51]C[-16]"
Range("U52:W52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-6]C[-20]"
Range("X52:AL52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-6]C[-22]"
Range("AM52").Select
ActiveCell.FormulaR1C1 = "='LISTA COMPRA'!R[-6]C[-36]"
Range("A52:C52").Select
Selection.AutoFill Destination:=Range("A52:C96"), Type:=xlFillDefault
Range("A52:C52").Select
Range("D52:R52").Select
Selection.AutoFill Destination:=Range("D52:R96"), Type:=xlFillDefault
Range("D52:R52").Select
Range("S52").Select
Selection.AutoFill Destination:=Range("S52:S96"), Type:=xlFillDefault
Range("S62").Select
Range("U52:W52").Select
Selection.AutoFill Destination:=Range("U52:W96"), Type:=xlFillDefault
Range("U52:W96").Select
Range("X52:AL52").Select
Selection.AutoFill Destination:=Range("X52:AL96"), Type:=xlFillDefault
Range("X61:AL95").Select
Range("AM52").Select
Selection.AutoFill Destination:=Range("AM52:AM96"), Type:=xlFillDefault
Range("AM52").Select
Sheets("LISTA COMPRA").Select
Range("A1").Select
Sheets("PEGADO").Select
Range("AJ2:AM2").Select
End Sub

Funciona bien, solo que me copia tanto las celdas que tienen datos como las que no tienen. Quería saber si de alguna manera se podría hacer que solo me copie aquellas celdas que contengan datos.

Mucha gracias.