Marco hulp gezocht - Lege lijnen overslaan

[Martijnblaauw]

Dag allemaal,

Bekijk bijlage Printsoftware.rarBekijk bijlage Name.TXT

Het excel bestand opent automatisch het .txt bestand in het eerste werkblad.
Vervolgens dient er een selectie te worden gemaakt welke 'lijnen' er geprint moeten worden.
En vervolgens met een Marco wordt de selectie gekopieert naar een ander werkblad. Dit andere werkblad zet de lijn om in een printbare lay-out op het volgende werkblad.

Als je het nu wil printen gaat die de hele range van de macro printen tot lijn 5006. Dat zijn 400 pagina en jullie begrijpen dat dat niet zo handig is.
Ik ben dus op zoek hoe ik mijn marco kan aanpassen dat hij alleen de 'volle' cellen kopieert of print.

Kan iemand mij helpen? Alvast bedankt.

Sub selectieprinten()
'
' selectieprinten Macro
'

'
Rows("10:5006").Select
Selection.Copy
Sheets("Selectie").Select
Rows("4:4").Select
ActiveSheet.Paste
Sheets("Printen").Select
Range("B4").Select
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
Sub Knop8_Klikken()

End Sub

Groeten Marti