VBA die alleen 'cellen met waarde' kopieren

[Martijnblaauw]

Dag Allemaal,

Ik heb een lijst met waarde die ik na selectie wil kopieren naar een ander werkblad met een VBA en vervolgens wil printen.
Nu is het zo doordat ik van A1 tot A1000 kopier die vervolgens ook 50 pagina's wil printen. Hoe kan ik dit voorkomen?

Ik zou dus graag een VBA willen die alleen de cellen met inhoud kopieert... Kan dat?

Dit is de VBA nu:
Sub Printselectie()
'
' Printselectie Macro
'

'
Range("C12W40").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Selectie").Select
ActiveWindow.SmallScroll Down:=-20
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Printen").Select
ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub


Groeten Martijn