Nur bestimmte, ausgefüllte Seiten drucken

Sub Nur_Messprotokolle_drucken()
Dim SH%, i%
SH = ActiveWorkbook.Sheets.Count
For i = 1 To SH
Select Case i
Case 1, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
'mach nichts
Case Else
Sheets(i).PrintOut Copies:=1
End Select
Next
End Sub

Das Zweite Tabellenblatt besteht aus 5 Seiten. Wenn ich also jetzt auf den Button klick druckt es mir ALLE 5 Seiten von Tabellenblatt 2 aus, auch die wo NICHT ausgefüllt sind.
Meine Frage ist nun, wie müsste ich den Code verändern, damit er mir von Tabellenblatt 2 nur die ausgefüllten der insgesammt 5 Blätter ausdruckt.
Ausgefüllt gilt ein Blatt wenn (Seiten werden nacheinenader ausgefüllt):
Seite 1 G19
Seite 2 G63
Seite 3 G107
Seite 4 G151
Seite 5 G195 ausgefüllt ist.
Ich hoffe die erklärung ist verständlich und ihr könnt mir helfen...
Gruß