Count Cells that have data & Print Auto

[Jewnaa]

Dear Experts


Please help me to complete this statement as per requirement for auto printing.


I have a serial number on Sheet 1- A2<gs id="f060f37e-273a-4d0c-a13c-14a5a58835a7" ginger_software_uiphraseguid="2d5383da-5963-4480-8931-5b86e6802b2c" class="GINGER_SOFTWARE_mark">:</gs>A41: 1 to 40
Column B&C contains some data: B2:C39

Sheet 1
[TABLE="class: grid, width: 200, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]S. No.[/TD]
[TD]User[/TD]
[TD]Pass[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]AAA[/TD]
[TD]<gs id="cbcd0cfb-a1df-4a0a-95ad-a2ee5d5f988d" ginger_software_uiphraseguid="5bb68139-4385-4b5c-ab25-39e7b342975f" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]BBB[/TD]
[TD]<gs id="d7361aee-6827-4390-81fb-3f413e94ee3e" ginger_software_uiphraseguid="0c046f4f-de40-4d2b-834c-4a92617d4d2c" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]CCC[/TD]
[TD]<gs id="f5e74ed0-a85b-4213-9233-55eb9e08a81c" ginger_software_uiphraseguid="3f6d601d-f67a-4208-8036-f0507b402424" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]DDD[/TD]
[TD]<gs id="bad8cc47-334b-40a2-9af4-49fd6374c582" ginger_software_uiphraseguid="bf64c86b-95e9-4608-ab02-6bee7f1d9cb9" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
[TR]
[TD]38[/TD]
[TD]ABA[/TD]
[TD]<gs id="b88ba215-5bf4-4e3e-9d62-bccc6bc880ce" ginger_software_uiphraseguid="571bfa84-1e7b-46a7-ae48-f291387a0026" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
[TR]
[TD]39[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]40[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
















---------------
Sheet 2
[TABLE="class: grid, width: 300, align: left"]
<tbody>[TR]
[TD]Column F[/TD]
[TD]Column G[/TD]
[/TR]
[TR]
[TD]S. No.[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]User[/TD]
[TD]AAA[/TD]
[/TR]
[TR]
[TD]Pass[/TD]
[TD]<gs id="71118eec-ff70-4adc-aa7e-94107529804f" ginger_software_uiphraseguid="59c7a2c7-705d-4b9d-aa3a-cbdfd4006f95" class="GINGER_SOFTWARE_mark">admin</gs>[/TD]
[/TR]
</tbody>[/TABLE]







Requirement:
If I have only 38 users' details then
I want to print Sheet 2, 1 copy of each user's detail that contains data only. Avoid Blanks



'Print one by one
Sub Print1by1<gs id="4eb86558-f3cc-4598-a11a-dc78148f2b00" ginger_software_uiphraseguid="9b3128f3-1a8c-4d4a-832a-e22346d4f356" class="GINGER_SOFTWARE_mark">(</gs>)
<gs id="a2e2895d-dcc1-49e0-bc96-4583dc6b09dd" ginger_software_uiphraseguid="b8b418db-daa8-401b-b6f7-0f5ac36d5644" class="GINGER_SOFTWARE_mark">ActiveWindow</gs><gs id="635cfd4b-6dd7-41fd-8804-209205870043" ginger_software_uiphraseguid="b8b418db-daa8-401b-b6f7-0f5ac36d5644" class="GINGER_SOFTWARE_mark">.</gs><gs id="9073dab5-bf8a-4eec-89df-d14ec8a84a85" ginger_software_uiphraseguid="b8b418db-daa8-401b-b6f7-0f5ac36d5644" class="GINGER_SOFTWARE_mark">SelectedSheets</gs><gs id="296b5714-ae97-42e0-a37a-bc49707c6e91" ginger_software_uiphraseguid="b8b418db-daa8-401b-b6f7-0f5ac36d5644" class="GINGER_SOFTWARE_mark">.</gs>PrintOut Copies<gs id="f49fee8b-0d6a-492b-8f15-02443d0aecf0" ginger_software_uiphraseguid="b8b418db-daa8-401b-b6f7-0f5ac36d5644" class="GINGER_SOFTWARE_mark">:</gs>=1
Range<gs id="cb6a4c4d-2821-4d70-a7c3-f0f468fa588c" ginger_software_uiphraseguid="668e22a3-c266-458a-8933-67f7a9d74824" class="GINGER_SOFTWARE_mark">(</gs>"G6") = Range<gs id="cdf50664-08b4-46ea-b770-a38ac5d2a283" ginger_software_uiphraseguid="668e22a3-c266-458a-8933-67f7a9d74824" class="GINGER_SOFTWARE_mark">(</gs>"G6") + 1
End Sub